(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    340165,       9493]
NotebookOptionsPosition[    334384,       9304]
NotebookOutlinePosition[    334821,       9323]
CellTagsIndexPosition[    334778,       9320]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"<<", "ACPackages`"}]], "Input",
 InitializationCell->True],

Cell[CellGroupData[{

Cell["\:041f\:043e\:0441\:0442\:0440\:043e\:0435\:043d\:0438\:0435 \:0441\
\:0438\:0441\:0442\:0435\:043c\:044b \:0438 \:043c\:0430\:0442\:0440\:0438\
\:0446", "Subsection"],

Cell[CellGroupData[{

Cell["\<\
(*\:041f\:043e\:043b\:0443\:0447\:0435\:043d\:0438\:0435 \:0443\:0440\:0430\
\:0432\:043d\:0435\:043d\:0438\:0439 \:0441\:043c.CurvSystCoor-pseudotor.nb*)
eqs\[Phi]r[\[Lambda]_,\[Omega]_,\[Epsilon]_,\[Kappa]_,m_,Re_]\
\>", "Subsubsection"],

Cell[CellGroupData[{

Cell["\<\
\:0440\:0430\:0437\:043b\:043e\:0436\:0435\:043d\:043d\:043e\:0435 \:043f\
\:043e \:043c\:043e\:0434\:0430\:043c (\:0441 1-\:0439 \:043d\:0435\:0432\
\:0435\:0440\:043d\:043e, \:0442.\:043a. \:043d\:0435\:0442 \
\:0437\:0430\:0446\:0435\:043f\:043b\:0435\:043d\:0438\:044f \:043c\:043e\
\:0434)\
\>", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"eqs\[Phi]r", "[", 
    RowBox[{
    "\[Lambda]_", ",", "\[Omega]_", ",", "\[Epsilon]_", ",", "\[Kappa]_", ",",
      "m_", ",", "Re_"}], "]"}], ":=", 
   RowBox[{"Which", "[", 
    RowBox[{
     RowBox[{"m", "\[Equal]", "0"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Re", " ", "\[Lambda]", " ", "\[Rho]", " ", 
         RowBox[{"v\[Zeta]", "[", "\[Rho]", "]"}]}], "-", 
        RowBox[{
         SuperscriptBox["v\[Zeta]", "\[Prime]",
          MultilineFunction->None], "[", "\[Rho]", "]"}], "-", 
        RowBox[{"\[Rho]", " ", 
         RowBox[{
          SuperscriptBox["v\[Zeta]", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "\[Rho]", "]"}]}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"Re", " ", "\[Lambda]", " ", 
            SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
         RowBox[{
          SuperscriptBox["\[Psi]", "\[Prime]",
           MultilineFunction->None], "[", "\[Rho]", "]"}]}], "+", 
        RowBox[{"\[Rho]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{"Re", " ", "\[Lambda]", " ", 
               SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "\[Rho]", "]"}]}], "-", 
           RowBox[{"\[Rho]", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{
                SuperscriptBox["\[Psi]", 
                 TagBox[
                  RowBox[{"(", "3", ")"}],
                  Derivative],
                 MultilineFunction->None], "[", "\[Rho]", "]"}]}], "+", 
              RowBox[{"\[Rho]", " ", 
               RowBox[{
                SuperscriptBox["\[Psi]", 
                 TagBox[
                  RowBox[{"(", "4", ")"}],
                  Derivative],
                 MultilineFunction->None], "[", "\[Rho]", "]"}]}]}], 
             ")"}]}]}], ")"}]}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"m", "\[Equal]", "1"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"Re", " ", "\[Lambda]", " ", 
            SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
         RowBox[{"v\[Zeta]", "[", "\[Rho]", "]"}]}], "+", 
        RowBox[{"\[Rho]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[ImaginaryI]", " ", "G", " ", "Re", " ", "\[Rho]", " ", 
            RowBox[{
             RowBox[{"\[Psi]", "[", "\[Rho]", "]"}], "/", "2"}]}], "-", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["v\[Zeta]", "\[Prime]",
               MultilineFunction->None], "[", "\[Rho]", "]"}], "+", 
             RowBox[{"\[Rho]", " ", 
              RowBox[{
               SuperscriptBox["v\[Zeta]", "\[Prime]\[Prime]",
                MultilineFunction->None], "[", "\[Rho]", "]"}]}]}], ")"}]}], 
          ")"}]}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "3"}], "+", 
           RowBox[{"Re", " ", "\[Lambda]", " ", 
            SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
         RowBox[{"\[Psi]", "[", "\[Rho]", "]"}]}], "+", 
        RowBox[{"\[Rho]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"3", "-", 
              RowBox[{"Re", " ", "\[Lambda]", " ", 
               SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", "\[Prime]",
              MultilineFunction->None], "[", "\[Rho]", "]"}]}], "+", 
           RowBox[{"\[Rho]", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", 
                RowBox[{"(", 
                 RowBox[{"3", "+", 
                  RowBox[{"Re", " ", "\[Lambda]", " ", 
                   SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}], " ", 
               RowBox[{
                SuperscriptBox["\[Psi]", "\[Prime]\[Prime]",
                 MultilineFunction->None], "[", "\[Rho]", "]"}]}], "+", 
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", 
                  RowBox[{
                   SuperscriptBox["\[Psi]", 
                    TagBox[
                    RowBox[{"(", "3", ")"}],
                    Derivative],
                    MultilineFunction->None], "[", "\[Rho]", "]"}]}], "+", 
                 RowBox[{"\[Rho]", " ", 
                  RowBox[{
                   SuperscriptBox["\[Psi]", 
                    TagBox[
                    RowBox[{"(", "4", ")"}],
                    Derivative],
                    MultilineFunction->None], "[", "\[Rho]", "]"}]}]}], 
                ")"}]}]}], ")"}]}]}], ")"}]}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", "True", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["m", "2"], "+", 
           RowBox[{"Re", " ", "\[Lambda]", " ", 
            SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
         RowBox[{"v\[Zeta]", "[", "\[Rho]", "]"}]}], "+", 
        RowBox[{"\[Rho]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
           "\[ImaginaryI]", " ", "G", " ", "m", " ", "Re", " ", "\[Rho]", " ",
             
            RowBox[{
             RowBox[{"\[Psi]", "[", "\[Rho]", "]"}], "/", "2"}]}], "-", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["v\[Zeta]", "\[Prime]",
               MultilineFunction->None], "[", "\[Rho]", "]"}], "+", 
             RowBox[{"\[Rho]", " ", 
              RowBox[{
               SuperscriptBox["v\[Zeta]", "\[Prime]\[Prime]",
                MultilineFunction->None], "[", "\[Rho]", "]"}]}]}], ")"}]}], 
          ")"}]}]}], ",", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["m", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "4"}], "+", 
            SuperscriptBox["m", "2"], "+", 
            RowBox[{"Re", " ", "\[Lambda]", " ", 
             SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
          RowBox[{"\[Psi]", "[", "\[Rho]", "]"}]}], "+", 
         RowBox[{"\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"2", " ", 
                SuperscriptBox["m", "2"]}], "-", 
               RowBox[{"Re", " ", "\[Lambda]", " ", 
                SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["\[Psi]", "\[Prime]",
               MultilineFunction->None], "[", "\[Rho]", "]"}]}], "-", 
            RowBox[{"\[Rho]", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["m", "2"]}], "+", 
                  RowBox[{"Re", " ", "\[Lambda]", " ", 
                   SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
                RowBox[{
                 SuperscriptBox["\[Psi]", "\[Prime]\[Prime]",
                  MultilineFunction->None], "[", "\[Rho]", "]"}]}], "-", 
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   RowBox[{
                    SuperscriptBox["\[Psi]", 
                    TagBox[
                    RowBox[{"(", "3", ")"}],
                    Derivative],
                    MultilineFunction->None], "[", "\[Rho]", "]"}]}], "+", 
                  RowBox[{"\[Rho]", " ", 
                   RowBox[{
                    SuperscriptBox["\[Psi]", 
                    TagBox[
                    RowBox[{"(", "4", ")"}],
                    Derivative],
                    MultilineFunction->None], "[", "\[Rho]", "]"}]}]}], 
                 ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\:0442\:0435\:043a\:0443\:0449\:0435\:0435", ":", " ", 
   RowBox[{
   "\:0441\:0438\:0441\:0442\:0435\:043c\:0430", " ", "\:0434\:043b\:044f", 
    " ", "\[Psi]", " ", "\:0438", " ", "v\[Zeta]"}]}], ",", " ", 
  RowBox[{
  "\:043e\:0431\:0440\:0435\:0437\:0430\:043d\:043d\:0430\:044f", " ", 
   "\:0434\:043e", " ", 
   SuperscriptBox["\[Kappa]", "1"]}]}], "\[IndentingNewLine]", 
 RowBox[{"(", 
  RowBox[{"eqs\[Phi]r", "[", 
   RowBox[{
   "\[Lambda]", ",", "\[Omega]", ",", "\[Epsilon]", ",", "\[Kappa]", ",", "G",
     ",", "Re"}], "]"}], ")"}]}], "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"eqs\[Phi]r", "[", 
    RowBox[{
    "\[Lambda]_", ",", "\[Omega]_", ",", "\[Epsilon]_", ",", "\[Kappa]_", ",",
      "G_", ",", "Rn_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       FractionBox["1", 
        RowBox[{"Rn", " ", "\[Rho]"}]], "\[Kappa]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           FractionBox["1", "2"]}], " ", "G", " ", "Rn", " ", 
          SuperscriptBox["\[Rho]", "2"], " ", 
          RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
          RowBox[{"\[Psi]", "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
         RowBox[{
          RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
          RowBox[{
           SuperscriptBox["v\[Zeta]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
         RowBox[{
          FractionBox["1", "4608"], 
          RowBox[{"G", " ", 
           SuperscriptBox["Rn", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"G", " ", 
              RowBox[{"(", 
               RowBox[{"4", "-", 
                RowBox[{"23", " ", 
                 SuperscriptBox["\[Rho]", "2"]}], "+", 
                RowBox[{"7", " ", 
                 SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], "+", 
             RowBox[{"24", " ", 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                RowBox[{"5", " ", 
                 SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
              "\[Omega]"}]}], ")"}], " ", 
           RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
           RowBox[{
            SuperscriptBox["v\[Zeta]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}]}], "+", 
         RowBox[{
          FractionBox["1", "4"], " ", "G", " ", "Rn", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
          RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
         RowBox[{"2", " ", "Rn", " ", "\[Omega]", " ", 
          RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
         RowBox[{
          FractionBox["1", "737280"], "G", " ", "Rn", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"46080", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"3", " ", 
                SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["G", "2"], " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"19", "-", 
               RowBox[{"120", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "+", 
               RowBox[{"150", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "-", 
               RowBox[{"70", " ", 
                SuperscriptBox["\[Rho]", "6"]}], "+", 
               RowBox[{"9", " ", 
                SuperscriptBox["\[Rho]", "8"]}]}], ")"}]}], "-", 
            RowBox[{"40", " ", "G", " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "3"}], "+", 
               RowBox[{"18", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "-", 
               RowBox[{"20", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "+", 
               RowBox[{"7", " ", 
                SuperscriptBox["\[Rho]", "6"]}]}], ")"}], " ", "\[Omega]"}]}],
            ")"}], " ", 
          RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
         RowBox[{"\[Rho]", " ", 
          RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
          RowBox[{
           SuperscriptBox["v\[Zeta]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
         FractionBox[
          RowBox[{"G", " ", 
           SuperscriptBox["Rn", "2"], " ", "\[Rho]", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"G", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "4"}], "+", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}]}], "-", 
             RowBox[{"24", " ", "\[Omega]"}]}], ")"}], " ", 
           RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
           RowBox[{
            SuperscriptBox["v\[Zeta]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "4608"], "+", 
         RowBox[{
          FractionBox["1", "4"], " ", "G", " ", "Rn", " ", "\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
          RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
         RowBox[{"2", " ", "Rn", " ", "\[Rho]", " ", "\[Omega]", " ", 
          RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
         RowBox[{
          FractionBox["1", "737280"], "G", " ", "Rn", " ", "\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"46080", "+", 
            RowBox[{
             SuperscriptBox["G", "2"], " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "19"}], "+", 
               RowBox[{"21", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "-", 
               RowBox[{"9", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "+", 
               SuperscriptBox["\[Rho]", "6"]}], ")"}]}], "-", 
            RowBox[{"40", " ", "G", " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"3", "-", 
               RowBox[{"3", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "+", 
               SuperscriptBox["\[Rho]", "4"]}], ")"}], " ", "\[Omega]"}]}], 
           ")"}], " ", 
          RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["\[Kappa]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{
           SuperscriptBox[
            RowBox[{"Cos", "[", "\[Phi]", "]"}], "2"], " ", 
           RowBox[{"v\[Zeta]", "[", 
            RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "Rn"], "-", 
         FractionBox[
          RowBox[{"G", " ", "Rn", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"G", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "4"}], "+", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}]}], "-", 
             RowBox[{"24", " ", "\[Omega]"}]}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"Cos", "[", "\[Phi]", "]"}], "2"], " ", 
           RowBox[{"v\[Zeta]", "[", 
            RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "4608"], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Phi]", "]"}], "2"], " ", 
           RowBox[{"v\[Zeta]", "[", 
            RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "Rn"], "-", 
         FractionBox[
          RowBox[{"G", " ", "Rn", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"G", " ", 
              RowBox[{"(", 
               RowBox[{"4", "-", 
                RowBox[{"23", " ", 
                 SuperscriptBox["\[Rho]", "2"]}], "+", 
                RowBox[{"7", " ", 
                 SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], "+", 
             RowBox[{"24", " ", 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                RowBox[{"5", " ", 
                 SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
              "\[Omega]"}]}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Phi]", "]"}], "2"], " ", 
           RowBox[{"v\[Zeta]", "[", 
            RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "4608"], "+", 
         RowBox[{
          FractionBox["1", "2"], " ", "G", " ", 
          SuperscriptBox["\[Rho]", "2"], " ", 
          RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
          RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
          RowBox[{"\[Psi]", "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
         RowBox[{
          FractionBox["1", "737280"], "G", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"46080", "+", 
            RowBox[{
             SuperscriptBox["G", "2"], " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "19"}], "+", 
               RowBox[{"21", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "-", 
               RowBox[{"9", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "+", 
               SuperscriptBox["\[Rho]", "6"]}], ")"}]}], "-", 
            RowBox[{"40", " ", "G", " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"3", "-", 
               RowBox[{"3", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "+", 
               SuperscriptBox["\[Rho]", "4"]}], ")"}], " ", "\[Omega]"}]}], 
           ")"}], " ", 
          RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
          RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
          RowBox[{"\[Psi]", "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
         RowBox[{
          FractionBox["1", "737280"], "G", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"46080", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"3", " ", 
                SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["G", "2"], " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"19", "-", 
               RowBox[{"120", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "+", 
               RowBox[{"150", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "-", 
               RowBox[{"70", " ", 
                SuperscriptBox["\[Rho]", "6"]}], "+", 
               RowBox[{"9", " ", 
                SuperscriptBox["\[Rho]", "8"]}]}], ")"}]}], "-", 
            RowBox[{"40", " ", "G", " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "3"}], "+", 
               RowBox[{"18", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "-", 
               RowBox[{"20", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "+", 
               RowBox[{"7", " ", 
                SuperscriptBox["\[Rho]", "6"]}]}], ")"}], " ", "\[Omega]"}]}],
            ")"}], " ", 
          RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
          RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
          RowBox[{"\[Psi]", "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
         FractionBox[
          RowBox[{
           RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
           RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
           RowBox[{
            SuperscriptBox["v\[Zeta]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "Rn"], "+", 
         FractionBox[
          RowBox[{"G", " ", "Rn", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"G", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "4"}], "+", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}]}], "-", 
             RowBox[{"24", " ", "\[Omega]"}]}], ")"}], " ", 
           RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
           RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
           RowBox[{
            SuperscriptBox["v\[Zeta]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "4608"], "-", 
         RowBox[{
          FractionBox["1", "59454259200"], "G", " ", "Rn", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["G", "3"], " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "4979"}], "+", 
               RowBox[{"20521", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "-", 
               RowBox[{"13499", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "+", 
               RowBox[{"4421", " ", 
                SuperscriptBox["\[Rho]", "6"]}], "-", 
               RowBox[{"829", " ", 
                SuperscriptBox["\[Rho]", "8"]}], "+", 
               RowBox[{"35", " ", 
                SuperscriptBox["\[Rho]", "10"]}]}], ")"}]}], "-", 
            RowBox[{"116121600", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"3", " ", 
                SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", "\[Omega]"}], 
            "-", 
            RowBox[{"16", " ", 
             SuperscriptBox["G", "2"], " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"3111", "-", 
               RowBox[{"11789", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "+", 
               RowBox[{"5536", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "-", 
               RowBox[{"1184", " ", 
                SuperscriptBox["\[Rho]", "6"]}], "+", 
               RowBox[{"216", " ", 
                SuperscriptBox["\[Rho]", "8"]}]}], ")"}], " ", "\[Omega]"}], 
            "-", 
            RowBox[{"6720", " ", "G", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "7296"}], "+", 
               RowBox[{"17", " ", 
                SuperscriptBox["Rn", "2"], " ", 
                SuperscriptBox["\[Omega]", "2"]}], "+", 
               RowBox[{"5", " ", 
                SuperscriptBox["Rn", "2"], " ", 
                SuperscriptBox["\[Rho]", "6"], " ", 
                SuperscriptBox["\[Omega]", "2"]}], "+", 
               RowBox[{
                SuperscriptBox["\[Rho]", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{"26112", "-", 
                  RowBox[{"55", " ", 
                   SuperscriptBox["Rn", "2"], " ", 
                   SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[Rho]", "4"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "8448"}], "+", 
                  RowBox[{"5", " ", 
                   SuperscriptBox["Rn", "2"], " ", 
                   SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}]}], ")"}]}]}], 
           ")"}], " ", 
          RowBox[{"Sin", "[", 
           RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["v\[Zeta]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
         RowBox[{
          FractionBox["1", "4"], " ", "G", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Phi]", "]"}], "2"], " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
         RowBox[{
          FractionBox["1", "737280"], "G", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"46080", "+", 
            RowBox[{
             SuperscriptBox["G", "2"], " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "19"}], "+", 
               RowBox[{"21", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "-", 
               RowBox[{"9", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "+", 
               SuperscriptBox["\[Rho]", "6"]}], ")"}]}], "-", 
            RowBox[{"40", " ", "G", " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"3", "-", 
               RowBox[{"3", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "+", 
               SuperscriptBox["\[Rho]", "4"]}], ")"}], " ", "\[Omega]"}]}], 
           ")"}], " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Phi]", "]"}], "2"], " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
         RowBox[{
          FractionBox["1", "59929893273600"], "G", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"8820", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["G", "4"], " ", 
                SuperscriptBox["Rn", "4"], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", 
                   SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"], " ", 
                RowBox[{"(", 
                 RowBox[{"76", "-", 
                  RowBox[{"103", " ", 
                   SuperscriptBox["\[Rho]", "2"]}], "+", 
                  RowBox[{"57", " ", 
                   SuperscriptBox["\[Rho]", "4"]}], "-", 
                  RowBox[{"13", " ", 
                   SuperscriptBox["\[Rho]", "6"]}], "+", 
                  SuperscriptBox["\[Rho]", "8"]}], ")"}]}], "-", 
               RowBox[{"8", " ", 
                SuperscriptBox["G", "3"], " ", 
                SuperscriptBox["Rn", "4"], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", 
                   SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "117"}], "+", 
                  RowBox[{"138", " ", 
                   SuperscriptBox["\[Rho]", "2"]}], "-", 
                  RowBox[{"62", " ", 
                   SuperscriptBox["\[Rho]", "4"]}], "+", 
                  RowBox[{"8", " ", 
                   SuperscriptBox["\[Rho]", "6"]}]}], ")"}], " ", 
                "\[Omega]"}], "+", 
               RowBox[{"184320", " ", "G", " ", 
                SuperscriptBox["Rn", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "47"}], "+", 
                  RowBox[{"96", " ", 
                   SuperscriptBox["\[Rho]", "2"]}], "-", 
                  RowBox[{"66", " ", 
                   SuperscriptBox["\[Rho]", "4"]}], "+", 
                  RowBox[{"13", " ", 
                   SuperscriptBox["\[Rho]", "6"]}]}], ")"}], " ", 
                "\[Omega]"}], "-", 
               RowBox[{"35389440", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", 
                  SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "30"}], "+", 
                  RowBox[{
                   SuperscriptBox["Rn", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
                   SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "+", 
               RowBox[{"192", " ", 
                SuperscriptBox["G", "2"], " ", 
                SuperscriptBox["Rn", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"5", " ", 
                   SuperscriptBox["Rn", "2"], " ", 
                   SuperscriptBox["\[Rho]", "10"], " ", 
                   SuperscriptBox["\[Omega]", "2"]}], "+", 
                  RowBox[{"60", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{"76", "+", 
                    RowBox[{
                    SuperscriptBox["Rn", "2"], " ", 
                    SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "-", 
                  RowBox[{"6", " ", 
                   SuperscriptBox["\[Rho]", "8"], " ", 
                   RowBox[{"(", 
                    RowBox[{"52", "+", 
                    RowBox[{"5", " ", 
                    SuperscriptBox["Rn", "2"], " ", 
                    SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "+", 
                  RowBox[{"15", " ", 
                   SuperscriptBox["\[Rho]", "6"], " ", 
                   RowBox[{"(", 
                    RowBox[{"128", "+", 
                    RowBox[{"5", " ", 
                    SuperscriptBox["Rn", "2"], " ", 
                    SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "-", 
                  RowBox[{"3", " ", 
                   RowBox[{"(", 
                    RowBox[{"808", "+", 
                    RowBox[{"5", " ", 
                    SuperscriptBox["Rn", "2"], " ", 
                    SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "-", 
                  RowBox[{"5", " ", 
                   SuperscriptBox["\[Rho]", "4"], " ", 
                   RowBox[{"(", 
                    RowBox[{"864", "+", 
                    RowBox[{"19", " ", 
                    SuperscriptBox["Rn", "2"], " ", 
                    SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}]}], ")"}]}]}],
               ")"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["G", "4"], " ", 
                SuperscriptBox["Rn", "4"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "145690"}], "+", 
                  RowBox[{"771792", " ", 
                   SuperscriptBox["\[Rho]", "2"]}], "-", 
                  RowBox[{"1244565", " ", 
                   SuperscriptBox["\[Rho]", "4"]}], "+", 
                  RowBox[{"980784", " ", 
                   SuperscriptBox["\[Rho]", "6"]}], "-", 
                  RowBox[{"448350", " ", 
                   SuperscriptBox["\[Rho]", "8"]}], "+", 
                  RowBox[{"131544", " ", 
                   SuperscriptBox["\[Rho]", "10"]}], "-", 
                  RowBox[{"20727", " ", 
                   SuperscriptBox["\[Rho]", "12"]}], "+", 
                  RowBox[{"1280", " ", 
                   SuperscriptBox["\[Rho]", "14"]}]}], ")"}]}], "-", 
               RowBox[{"325140480", " ", "G", " ", 
                SuperscriptBox["Rn", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "101"}], "+", 
                  RowBox[{"380", " ", 
                   SuperscriptBox["\[Rho]", "2"]}], "-", 
                  RowBox[{"330", " ", 
                   SuperscriptBox["\[Rho]", "4"]}], "+", 
                  RowBox[{"84", " ", 
                   SuperscriptBox["\[Rho]", "6"]}]}], ")"}], " ", 
                "\[Omega]"}], "-", 
               RowBox[{"252", " ", 
                SuperscriptBox["G", "3"], " ", 
                SuperscriptBox["Rn", "4"], " ", 
                RowBox[{"(", 
                 RowBox[{"6017", "-", 
                  RowBox[{"31504", " ", 
                   SuperscriptBox["\[Rho]", "2"]}], "+", 
                  RowBox[{"49530", " ", 
                   SuperscriptBox["\[Rho]", "4"]}], "-", 
                  RowBox[{"36960", " ", 
                   SuperscriptBox["\[Rho]", "6"]}], "+", 
                  RowBox[{"15050", " ", 
                   SuperscriptBox["\[Rho]", "8"]}], "-", 
                  RowBox[{"3552", " ", 
                   SuperscriptBox["\[Rho]", "10"]}], "+", 
                  RowBox[{"329", " ", 
                   SuperscriptBox["\[Rho]", "12"]}]}], ")"}], " ", 
                "\[Omega]"}], "+", 
               RowBox[{"26011238400", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"9", " ", 
                   SuperscriptBox["Rn", "2"], " ", 
                   SuperscriptBox["\[Rho]", "4"], " ", 
                   SuperscriptBox["\[Omega]", "2"]}], "+", 
                  RowBox[{"5", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "24"}], "+", 
                    RowBox[{
                    SuperscriptBox["Rn", "2"], " ", 
                    SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "-", 
                  RowBox[{"16", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "15"}], "+", 
                    RowBox[{
                    SuperscriptBox["Rn", "2"], " ", 
                    SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}]}], ")"}]}], 
               "+", 
               RowBox[{"4032", " ", 
                SuperscriptBox["G", "2"], " ", 
                SuperscriptBox["Rn", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{"714000", "-", 
                  RowBox[{"923", " ", 
                   SuperscriptBox["Rn", "2"], " ", 
                   SuperscriptBox["\[Omega]", "2"]}], "+", 
                  RowBox[{"288", " ", 
                   SuperscriptBox["Rn", "2"], " ", 
                   SuperscriptBox["\[Rho]", "10"], " ", 
                   SuperscriptBox["\[Omega]", "2"]}], "+", 
                  RowBox[{"5040", " ", 
                   SuperscriptBox["\[Rho]", "6"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "416"}], "+", 
                    RowBox[{
                    SuperscriptBox["Rn", "2"], " ", 
                    SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "-", 
                  RowBox[{"350", " ", 
                   SuperscriptBox["\[Rho]", "8"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "912"}], "+", 
                    RowBox[{"5", " ", 
                    SuperscriptBox["Rn", "2"], " ", 
                    SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "+", 
                  RowBox[{"280", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "11856"}], "+", 
                    RowBox[{"17", " ", 
                    SuperscriptBox["Rn", "2"], " ", 
                    SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "-", 
                  RowBox[{"315", " ", 
                   SuperscriptBox["\[Rho]", "4"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "13392"}], "+", 
                    RowBox[{"23", " ", 
                    SuperscriptBox["Rn", "2"], " ", 
                    SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}]}], ")"}]}]}],
               ")"}], " ", 
             RowBox[{"Cos", "[", 
              RowBox[{"2", " ", "\[Phi]"}], "]"}]}]}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
         FractionBox[
          RowBox[{"\[Rho]", " ", 
           SuperscriptBox[
            RowBox[{"Cos", "[", "\[Phi]", "]"}], "2"], " ", 
           RowBox[{
            SuperscriptBox["v\[Zeta]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "Rn"], "+", 
         RowBox[{
          FractionBox["1", "59454259200"], "G", " ", "Rn", " ", "\[Rho]", " ",
           
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             SuperscriptBox["\[Rho]", "2"]}], ")"}], "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["G", "3"], " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"4979", "-", 
               RowBox[{"2792", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "+", 
               RowBox[{"777", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "-", 
               RowBox[{"134", " ", 
                SuperscriptBox["\[Rho]", "6"]}], "+", 
               RowBox[{"5", " ", 
                SuperscriptBox["\[Rho]", "8"]}]}], ")"}]}], "-", 
            RowBox[{"116121600", " ", "\[Omega]"}], "-", 
            RowBox[{"16", " ", 
             SuperscriptBox["G", "2"], " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "3111"}], "+", 
               RowBox[{"1228", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "-", 
               RowBox[{"208", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "+", 
               RowBox[{"36", " ", 
                SuperscriptBox["\[Rho]", "6"]}]}], ")"}], " ", "\[Omega]"}], 
            "-", 
            RowBox[{"6720", " ", "G", " ", 
             RowBox[{"(", 
              RowBox[{"7296", "-", 
               RowBox[{"17", " ", 
                SuperscriptBox["Rn", "2"], " ", 
                SuperscriptBox["\[Omega]", "2"]}], "+", 
               RowBox[{
                SuperscriptBox["Rn", "2"], " ", 
                SuperscriptBox["\[Rho]", "4"], " ", 
                SuperscriptBox["\[Omega]", "2"]}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox["\[Rho]", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1056"}], "+", 
                  RowBox[{
                   SuperscriptBox["Rn", "2"], " ", 
                   SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}]}], ")"}]}]}], 
           ")"}], " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["v\[Zeta]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
         FractionBox[
          RowBox[{"G", " ", "Rn", " ", "\[Rho]", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"G", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "4"}], "+", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}]}], "-", 
             RowBox[{"24", " ", "\[Omega]"}]}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Phi]", "]"}], "2"], " ", 
           RowBox[{
            SuperscriptBox["v\[Zeta]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "4608"], "-", 
         RowBox[{
          FractionBox["1", "737280"], "G", " ", "\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"46080", "+", 
            RowBox[{
             SuperscriptBox["G", "2"], " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "19"}], "+", 
               RowBox[{"21", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "-", 
               RowBox[{"9", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "+", 
               SuperscriptBox["\[Rho]", "6"]}], ")"}]}], "-", 
            RowBox[{"40", " ", "G", " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"3", "-", 
               RowBox[{"3", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "+", 
               SuperscriptBox["\[Rho]", "4"]}], ")"}], " ", "\[Omega]"}]}], 
           ")"}], " ", 
          RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
          RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
         RowBox[{
          FractionBox["1", "8"], " ", "G", " ", "\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
          RowBox[{"Sin", "[", 
           RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
         RowBox[{
          FractionBox["1", "59929893273600"], "G", " ", "\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["G", "4"], " ", 
             SuperscriptBox["Rn", "4"], " ", 
             RowBox[{"(", 
              RowBox[{"145690", "-", 
               RowBox[{"240206", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "+", 
               RowBox[{"174649", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "-", 
               RowBox[{"70547", " ", 
                SuperscriptBox["\[Rho]", "6"]}], "+", 
               RowBox[{"19123", " ", 
                SuperscriptBox["\[Rho]", "8"]}], "-", 
               RowBox[{"2801", " ", 
                SuperscriptBox["\[Rho]", "10"]}], "+", 
               RowBox[{"160", " ", 
                SuperscriptBox["\[Rho]", "12"]}]}], ")"}]}], "-", 
            RowBox[{"325140480", " ", "G", " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"101", "-", 
               RowBox[{"89", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "+", 
               RowBox[{"21", " ", 
                SuperscriptBox["\[Rho]", "4"]}]}], ")"}], " ", "\[Omega]"}], 
            "-", 
            RowBox[{"252", " ", 
             SuperscriptBox["G", "3"], " ", 
             SuperscriptBox["Rn", "4"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "6017"}], "+", 
               RowBox[{"9735", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "-", 
               RowBox[{"6775", " ", 
                SuperscriptBox["\[Rho]", "4"]}], "+", 
               RowBox[{"2465", " ", 
                SuperscriptBox["\[Rho]", "6"]}], "-", 
               RowBox[{"545", " ", 
                SuperscriptBox["\[Rho]", "8"]}], "+", 
               RowBox[{"47", " ", 
                SuperscriptBox["\[Rho]", "10"]}]}], ")"}], " ", "\[Omega]"}], 
            "+", 
            RowBox[{"26011238400", " ", 
             RowBox[{"(", 
              RowBox[{"120", "+", 
               RowBox[{
                SuperscriptBox["Rn", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "5"}], "+", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
                SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "+", 
            RowBox[{"4032", " ", 
             SuperscriptBox["G", "2"], " ", 
             SuperscriptBox["Rn", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "714000"}], "+", 
               RowBox[{"923", " ", 
                SuperscriptBox["Rn", "2"], " ", 
                SuperscriptBox["\[Omega]", "2"]}], "+", 
               RowBox[{"48", " ", 
                SuperscriptBox["Rn", "2"], " ", 
                SuperscriptBox["\[Rho]", "8"], " ", 
                SuperscriptBox["\[Omega]", "2"]}], "+", 
               RowBox[{
                SuperscriptBox["\[Rho]", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{"945840", "-", 
                  RowBox[{"1457", " ", 
                   SuperscriptBox["Rn", "2"], " ", 
                   SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[Rho]", "6"], " ", 
                RowBox[{"(", 
                 RowBox[{"63840", "-", 
                  RowBox[{"302", " ", 
                   SuperscriptBox["Rn", "2"], " ", 
                   SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[Rho]", "4"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "460320"}], "+", 
                  RowBox[{"958", " ", 
                   SuperscriptBox["Rn", "2"], " ", 
                   SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}]}], ")"}]}]}], 
           ")"}], " ", 
          RowBox[{"Sin", "[", 
           RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], "+", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"2", " ", "Rn", " ", 
         SuperscriptBox["\[Rho]", "2"]}]], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "Rn", " ", "\[Lambda]", " ", 
          SuperscriptBox["\[Rho]", "2"], " ", 
          RowBox[{"v\[Zeta]", "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
         RowBox[{"G", " ", "Rn", " ", 
          SuperscriptBox["\[Rho]", "2"], " ", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}], "+", 
            RowBox[{"\[Rho]", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["v\[Zeta]", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}], "+", 
               RowBox[{"\[Rho]", " ", 
                RowBox[{
                 SuperscriptBox["v\[Zeta]", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}]}], ")"}]}]}], 
           ")"}]}]}], ")"}]}]}], ",", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"Rn", " ", 
        SuperscriptBox["\[Rho]", "4"]}]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", " ", 
         RowBox[{
          SuperscriptBox["\[Psi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
        RowBox[{"Rn", " ", "\[Lambda]", " ", 
         SuperscriptBox["\[Rho]", "2"], " ", 
         RowBox[{
          SuperscriptBox["\[Psi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["\[Psi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}], "+", 
        RowBox[{"\[Rho]", " ", 
         RowBox[{
          SuperscriptBox["\[Psi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
        RowBox[{"Rn", " ", "\[Lambda]", " ", 
         SuperscriptBox["\[Rho]", "3"], " ", 
         RowBox[{
          SuperscriptBox["\[Psi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
        RowBox[{"2", " ", "\[Rho]", " ", 
         RowBox[{
          SuperscriptBox["\[Psi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
        RowBox[{
         SuperscriptBox["\[Rho]", "2"], " ", 
         RowBox[{
          SuperscriptBox["\[Psi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
        RowBox[{"Rn", " ", "\[Lambda]", " ", 
         SuperscriptBox["\[Rho]", "4"], " ", 
         RowBox[{
          SuperscriptBox["\[Psi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["\[Rho]", "2"], " ", 
         RowBox[{
          SuperscriptBox["\[Psi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["\[Rho]", "3"], " ", 
         RowBox[{
          SuperscriptBox["\[Psi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"3", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "4608"], "\[Kappa]", " ", "\[Rho]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4608", " ", "G", " ", "Rn", " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"v\[Zeta]", "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"2304", " ", "G", " ", "Rn", " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"9216", " ", "Rn", " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"4608", " ", "Rn", " ", "\[Lambda]", " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"2", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Rho]", "2"]}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"G", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "4"}], "+", 
                 SuperscriptBox["\[Rho]", "2"]}], ")"}]}], "-", 
              RowBox[{"24", " ", "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"2", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"G", " ", 
               RowBox[{"(", 
                RowBox[{"4", "-", 
                 RowBox[{"23", " ", 
                  SuperscriptBox["\[Rho]", "2"]}], "+", 
                 RowBox[{"7", " ", 
                  SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], "+", 
              RowBox[{"24", " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"5", " ", 
                  SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
               "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"6", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"G", " ", 
               RowBox[{"(", 
                RowBox[{"9", "-", 
                 RowBox[{"60", " ", 
                  SuperscriptBox["\[Rho]", "2"]}], "+", 
                 RowBox[{"35", " ", 
                  SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], "+", 
              RowBox[{"48", " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"5", " ", 
                  SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
               "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"6", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"G", " ", 
               RowBox[{"(", 
                RowBox[{"9", "-", 
                 RowBox[{"20", " ", 
                  SuperscriptBox["\[Rho]", "2"]}], "+", 
                 RowBox[{"7", " ", 
                  SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], "+", 
              RowBox[{"16", " ", 
               RowBox[{"(", 
                RowBox[{"3", "-", 
                 RowBox[{"5", " ", 
                  SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
               "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"18432", " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"2", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Rho]", "2"]}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"G", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "4"}], "+", 
                 SuperscriptBox["\[Rho]", "2"]}], ")"}]}], "-", 
              RowBox[{"24", " ", "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"9216", " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"G", " ", 
               RowBox[{"(", 
                RowBox[{"4", "-", 
                 RowBox[{"23", " ", 
                  SuperscriptBox["\[Rho]", "2"]}], "+", 
                 RowBox[{"7", " ", 
                  SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], "+", 
              RowBox[{"24", " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"5", " ", 
                  SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
               "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"2304", " ", "G", " ", "Rn", " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"9216", " ", "Rn", " ", 
            SuperscriptBox["\[Rho]", "3"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"9216", " ", "\[Rho]", " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"4608", " ", "Rn", " ", "\[Lambda]", " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"G", " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Rho]", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"G", " ", 
               RowBox[{"(", 
                RowBox[{"4", "-", 
                 RowBox[{"23", " ", 
                  SuperscriptBox["\[Rho]", "2"]}], "+", 
                 RowBox[{"7", " ", 
                  SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], "+", 
              RowBox[{"24", " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"5", " ", 
                  SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
               "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"6", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"G", " ", 
               RowBox[{"(", 
                RowBox[{"9", "-", 
                 RowBox[{"20", " ", 
                  SuperscriptBox["\[Rho]", "2"]}], "+", 
                 RowBox[{"7", " ", 
                  SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], "+", 
              RowBox[{"16", " ", 
               RowBox[{"(", 
                RowBox[{"3", "-", 
                 RowBox[{"5", " ", 
                  SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
               "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"9216", " ", "\[Rho]", " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"G", " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Rho]", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"G", " ", 
               RowBox[{"(", 
                RowBox[{"4", "-", 
                 RowBox[{"23", " ", 
                  SuperscriptBox["\[Rho]", "2"]}], "+", 
                 RowBox[{"7", " ", 
                  SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], "+", 
              RowBox[{"24", " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"5", " ", 
                  SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
               "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"9216", " ", "\[Rho]", " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"G", " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Rho]", "2"]}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"G", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "4"}], "+", 
                 SuperscriptBox["\[Rho]", "2"]}], ")"}]}], "-", 
              RowBox[{"24", " ", "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"9216", " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Rho]", "2"]}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"G", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "4"}], "+", 
                 SuperscriptBox["\[Rho]", "2"]}], ")"}]}], "-", 
              RowBox[{"24", " ", "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"9216", " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"G", " ", 
               RowBox[{"(", 
                RowBox[{"4", "-", 
                 RowBox[{"23", " ", 
                  SuperscriptBox["\[Rho]", "2"]}], "+", 
                 RowBox[{"7", " ", 
                  SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], "+", 
              RowBox[{"24", " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"5", " ", 
                  SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
               "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"9216", " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Rho]", "2"]}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"G", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "4"}], "+", 
                 SuperscriptBox["\[Rho]", "2"]}], ")"}]}], "-", 
              RowBox[{"24", " ", "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], "-", 
        RowBox[{
         FractionBox["1", "59454259200"], 
         SuperscriptBox["\[Kappa]", "2"], " ", 
         SuperscriptBox["\[Rho]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"322560", " ", "G", " ", "Rn", " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"(", 
             RowBox[{"115200", "+", 
              RowBox[{
               SuperscriptBox["G", "2"], " ", 
               SuperscriptBox["Rn", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "20"}], "+", 
                 RowBox[{"30", " ", 
                  SuperscriptBox["\[Rho]", "2"]}], "-", 
                 RowBox[{"15", " ", 
                  SuperscriptBox["\[Rho]", "4"]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[Rho]", "6"]}]}], ")"}]}], "-", 
              RowBox[{"20", " ", "G", " ", 
               SuperscriptBox["Rn", "2"], " ", 
               RowBox[{"(", 
                RowBox[{"6", "-", 
                 RowBox[{"8", " ", 
                  SuperscriptBox["\[Rho]", "2"]}], "+", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[Rho]", "4"]}]}], ")"}], " ", 
               "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{"v\[Zeta]", "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"309657600", " ", "Rn", " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"192", " ", "\[Lambda]"}], "-", 
              RowBox[{"3", " ", 
               SuperscriptBox["G", "2"], " ", "Rn", " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], "+", 
              RowBox[{"16", " ", "G", " ", "Rn", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", "\[Omega]"}],
               "+", 
              RowBox[{"2", " ", "G", " ", "Rn", " ", 
               SuperscriptBox["\[Rho]", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"G", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}], "-", 
                 RowBox[{"12", " ", "\[Omega]"}]}], ")"}], " ", 
               RowBox[{"Cos", "[", 
                RowBox[{"2", " ", "\[Phi]"}], "]"}]}]}], ")"}], " ", 
            RowBox[{"\[Psi]", "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"18579456000", " ", "G", " ", "Rn", " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"1532160", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"18579456000", " ", "G", " ", "Rn", " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"3225600", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"2419200", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"806400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"80640", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"9676800", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"19353600", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"12902400", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"3225600", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"18579456000", " ", "G", " ", "Rn", " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"1532160", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"18579456000", " ", "G", " ", "Rn", " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"3225600", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"2419200", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"806400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"80640", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"9676800", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"19353600", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"12902400", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"3225600", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"59454259200", " ", "Rn", " ", "\[Lambda]", " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"619315200", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"59454259200", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"51609600", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"1347010560", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"153000", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"5031936000", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"725760", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"2580480000", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"806400", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"403200", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"100800", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"5760", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "12"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"2786918400", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"1430400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"7741440000", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"5913600", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"4838400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"1720320", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"403200", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"2903040", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"8601600", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"2580480", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"29727129600", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"25804800", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"58060800", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"38707200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"6451200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"154828800", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"309657600", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"154828800", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"148635648000", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"20643840", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"9958", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"50319360", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"25500", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"38707200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"22680", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"9031680", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"8960", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"2100", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"288", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"10", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "12"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"232243200", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"99552", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"464486400", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"238400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"232243200", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"184800", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"53760", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"8960", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"1152", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"228480", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"483840", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"268800", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"13440", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"59454259200", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"23224320", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"4979", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"166440960", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"25500", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"193536000", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"34020", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"50319360", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"17920", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"5250", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"864", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"35", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "12"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"38707200", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"49776", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"154828800", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"238400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"193536000", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"277200", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"107520", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"22400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"3456", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"114240", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"483840", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"403200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"33600", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"37158912000", " ", "G", " ", "Rn", " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"3064320", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"37158912000", " ", "G", " ", "Rn", " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"6451200", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"4838400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"38707200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"25804800", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"6451200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"806400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"80640", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "11"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"9676800", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "3"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["v\[Zeta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"89181388800", " ", "\[Rho]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"464486400", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"29727129600", " ", "Rn", " ", "\[Lambda]", " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"928972800", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"309657600", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"2477260800", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"3715891200", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"89181388800", " ", "\[Rho]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"2580480", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Rho]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"4979", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", "\[Rho]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"1575383040", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"165750", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"29727129600", " ", "Rn", " ", "\[Lambda]", " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"3096576000", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"374220", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"1085091840", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"273280", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"101850", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"20304", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "11"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"965", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "13"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"193536000", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Rho]", " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"49776", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", "\[Rho]", " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"3638476800", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"1549600", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"5999616000", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"3049200", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"1639680", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"434560", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"81216", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "11"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"114240", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"3144960", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"4435200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"651840", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"237817036800", " ", "\[Rho]", " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"28385280", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Rho]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"4979", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", "\[Rho]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"65802240", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"25500", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"38707200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"34020", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"1290240", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"17920", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"5250", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"864", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "11"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"35", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "13"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"348364800", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Rho]", " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"49776", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", "\[Rho]", " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"1083801600", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"238400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"735436800", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"277200", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"107520", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"22400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"3456", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "11"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"114240", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"483840", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"403200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"33600", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"59454259200", " ", "\[Rho]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"25804800", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Rho]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"58060800", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"38707200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"6451200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"154828800", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Rho]", " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"309657600", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"154828800", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"59454259200", " ", "\[Rho]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"23224320", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Rho]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"4979", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", "\[Rho]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"54190080", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"12750", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"38707200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"11340", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"7741440", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"4480", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"1050", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"144", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "11"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"5", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "13"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"38707200", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", "\[Rho]", " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"49776", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", "\[Rho]", " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"77414400", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"119200", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"38707200", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"92400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"26880", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"4480", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"576", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "11"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"114240", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"241920", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"134400", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"6720", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"208089907200", " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"51609600", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"232243200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"232243200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"51609600", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"309657600", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"1238630400", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"928972800", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"89181388800", " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"2580480", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"4979", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"119992320", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"12750", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"154828800", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"11340", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"37416960", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"4480", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"1050", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"144", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "12"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"5", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "14"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"193536000", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"49776", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"1006387200", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"119200", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"812851200", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"92400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"26880", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"4480", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"576", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "12"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"114240", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"241920", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"134400", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"6720", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"59454259200", " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"23224320", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"4979", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"166440960", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"25500", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"193536000", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"34020", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"50319360", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"17920", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"5250", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"864", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "12"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"35", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "14"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"38707200", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"49776", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"154828800", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"238400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"193536000", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"277200", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"107520", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "8"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"22400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"3456", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "12"], " ", "\[Omega]", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"114240", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"483840", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "4"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"403200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "6"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"33600", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "10"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"59454259200", " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"25804800", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"58060800", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"38707200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"6451200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"154828800", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"309657600", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"154828800", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", "\[Omega]", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"59454259200", " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"23224320", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"4979", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"54190080", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"12750", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"38707200", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"11340", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"7741440", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"4480", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"1050", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "11"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"144", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "13"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"5", " ", 
            SuperscriptBox["G", "4"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "15"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"38707200", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"49776", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"77414400", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"119200", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"38707200", " ", "G", " ", 
            SuperscriptBox["Rn", "2"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"92400", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"26880", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "9"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"4480", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "11"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"576", " ", 
            SuperscriptBox["G", "3"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "13"], " ", "\[Omega]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"114240", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "3"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"241920", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "5"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
           RowBox[{"134400", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "7"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
           RowBox[{"6720", " ", 
            SuperscriptBox["G", "2"], " ", 
            SuperscriptBox["Rn", "4"], " ", 
            SuperscriptBox["\[Rho]", "11"], " ", 
            SuperscriptBox["\[Omega]", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["\[Rho]", "4"], " ", 
         RowBox[{
          SuperscriptBox["\[Psi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}]}], ")"}]}]}], "}"}]}], 
  ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{3.407211029859*^9, {3.407212779921*^9, 3.407212780757*^9}}]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"eqs\[Phi]r", "[", 
   RowBox[{"\[Lambda]", ",", "0", ",", "0", ",", "0", ",", "G", ",", "R"}], 
   "]"}], "//", "Expand"}]], "Input",
 CellChangeTimes->{{3.407211048203*^9, 3.40721104935*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Lambda]", " ", 
     RowBox[{"v\[Zeta]", "[", 
      RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", "G", " ", 
     RowBox[{
      SuperscriptBox["\[Psi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["v\[Zeta]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "2"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}], 
     RowBox[{"Rn", " ", 
      SuperscriptBox["\[Rho]", "2"]}]], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["v\[Zeta]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}], 
     RowBox[{"Rn", " ", "\[Rho]"}]], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["v\[Zeta]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}], "Rn"]}], ",", 
   RowBox[{
    FractionBox[
     RowBox[{"4", " ", 
      RowBox[{
       SuperscriptBox["\[Psi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "2"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], 
     RowBox[{"Rn", " ", 
      SuperscriptBox["\[Rho]", "4"]}]], "-", 
    FractionBox[
     RowBox[{"\[Lambda]", " ", 
      RowBox[{
       SuperscriptBox["\[Psi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "2"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], 
     SuperscriptBox["\[Rho]", "2"]], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[Psi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "4"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}], 
     RowBox[{"Rn", " ", 
      SuperscriptBox["\[Rho]", "4"]}]], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[Psi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}], 
     RowBox[{"Rn", " ", 
      SuperscriptBox["\[Rho]", "3"]}]], "-", 
    FractionBox[
     RowBox[{"\[Lambda]", " ", 
      RowBox[{
       SuperscriptBox["\[Psi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "\[Rho]"], "-", 
    FractionBox[
     RowBox[{"2", " ", 
      RowBox[{
       SuperscriptBox["\[Psi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "2"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], 
     RowBox[{"Rn", " ", 
      SuperscriptBox["\[Rho]", "3"]}]], "-", 
    RowBox[{"\[Lambda]", " ", 
     RowBox[{
      SuperscriptBox["\[Psi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[Psi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}], 
     RowBox[{"Rn", " ", 
      SuperscriptBox["\[Rho]", "2"]}]], "+", 
    FractionBox[
     RowBox[{"2", " ", 
      RowBox[{
       SuperscriptBox["\[Psi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"2", ",", "2"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], 
     RowBox[{"Rn", " ", 
      SuperscriptBox["\[Rho]", "2"]}]], "+", 
    FractionBox[
     RowBox[{"2", " ", 
      RowBox[{
       SuperscriptBox["\[Psi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"3", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}]}], 
     RowBox[{"Rn", " ", "\[Rho]"}]], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[Psi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"4", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}], "Rn"]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.407211044565*^9, 3.4072110496689997`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
\:041a\:0420\:0421 \:0441 \:0434\:0440\:043e\:0431\:043d\:043e\:0439 \:0441\
\:0435\:0442\:043a\:043e\:0439 \:0438 \:0446\:0435\:043d\:0442\:0440\:0430\
\:043b\:044c\:043d\:044b\:043c\:0438 \:0440\:0430\:0437\:043d\:043e\:0441\
\:0442\:044f\:043c\:0438\
\>", "Subsubsection"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"\:0422", ".", "\:043a", ".", " ", "\:0443"}], " ", "v\[Zeta]", 
     " ", "\:043c\:0430\:043a\:0441\:0438\:043c\:0443\:043c", " ", "2", " ", 
     "\:043f\:0440\:043e\:0438\:0437\:0432\:043e\:0434\:043d\:0430\:044f", 
     " ", "\:043f\:043e", " ", "\[Rho]"}], ",", " ", 
    RowBox[{
    "\:0430", " ", "\:0443", " ", "\[Psi]", " ", 
     "\:043c\:0430\:043a\:0441\:0438\:043c\:0443\:043c", " ", "4"}], ",", " ",
     
    RowBox[{
     RowBox[{
      RowBox[{
      "\:0442\:043e", " ", 
       "\:0444\:0438\:043a\:0442\:0438\:0432\:043d\:044b\:0435", " ", 
       "\:0441\:043b\:043e\:0438"}], " ", "-", " ", 
      RowBox[{"\:0443", " ", "v\[Zeta]", 
       RowBox[{"(", "f", ")"}]}]}], "=", "1"}], ",", " ", 
    RowBox[{
     RowBox[{"\:0443", " ", "\[Psi]", 
      RowBox[{"(", "g", ")"}]}], "=", "2"}]}], "*)"}], "\[IndentingNewLine]", 
  
  RowBox[{
   RowBox[{
    RowBox[{"FiniteMatrix4Eigen", "[", 
     RowBox[{"nr_", ",", "n\[Phi]_", ",", "subst___"}], "]"}], ":=", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"hr", "=", 
         FractionBox["1", "nr"]}], ",", 
        RowBox[{"h\[Phi]", "=", 
         FractionBox[
          RowBox[{"2", "\[Pi]"}], "n\[Phi]"]}], ",", "unk", ",", "unkmain", 
        ",", "unkfict", ",", "unkvr", ",", "i", ",", "ghv", ",", "gh\[Psi]", 
        ",", "s", ",", "order", ",", "lhs", ",", "rhs", ",", "\[Lambda]", ",",
         "bcr", ",", "bc\[Phi]", ",", "bc"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"OddQ", "[", "n\[Phi]", "]"}], ",", 
         RowBox[{
          RowBox[{
          "Print", "[", 
           "\"\<\:043a\:043e\:043b-\:0432\:043e \
\:0443\:0437\:043b\:043e\:0432 \:043f\:043e \[Phi] \:0434\:043e\:043b\:0436\
\:043d\:043e \:0431\:044b\:0442\:044c \:0447\:0451\:0442\:043d\:044b\:043c (\
\:0434\:043b\:044f \:0441\:043e\:043e\:0442\:0432\:0435\:0442\:0441\:0442\
\:0432\:0438\:044f \:0432 \:0446\:0435\:043d\:0442\:0440\:0435)\>\"", "]"}], 
          ";", 
          RowBox[{"Return", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]",
        
       RowBox[{"ghv", "=", "1"}], ";", 
       RowBox[{"gh\[Psi]", "=", "2"}], ";", "\[IndentingNewLine]", 
       RowBox[{"unk", "=", 
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"f", "[", 
             RowBox[{
              RowBox[{"i", "+", 
               RowBox[{"1", "/", "2"}]}], ",", "j"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", 
              RowBox[{"0", "-", "ghv"}], ",", 
              RowBox[{"nr", "+", "ghv", "-", "1"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", "0", ",", 
              RowBox[{"n\[Phi]", "-", "1"}]}], "}"}]}], "]"}], ",", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"g", "[", 
             RowBox[{
              RowBox[{"i", "+", 
               RowBox[{"1", "/", "2"}]}], ",", "j"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", 
              RowBox[{"0", "-", "gh\[Psi]"}], ",", 
              RowBox[{"nr", "+", "gh\[Psi]", "-", "1"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", "0", ",", 
              RowBox[{"n\[Phi]", "-", "1"}]}], "}"}]}], "]"}]}], "]"}]}], ";",
        "\[IndentingNewLine]", 
       RowBox[{"unkmain", "=", 
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"f", "[", 
             RowBox[{
              RowBox[{"i", "+", 
               RowBox[{"1", "/", "2"}]}], ",", "j"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "0", ",", 
              RowBox[{"nr", "-", "1"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", "0", ",", 
              RowBox[{"n\[Phi]", "-", "1"}]}], "}"}]}], "]"}], ",", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"g", "[", 
             RowBox[{
              RowBox[{"i", "+", 
               RowBox[{"1", "/", "2"}]}], ",", "j"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "0", ",", 
              RowBox[{"nr", "-", "1"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", "0", ",", 
              RowBox[{"n\[Phi]", "-", "1"}]}], "}"}]}], "]"}]}], "]"}]}], ";",
        "\[IndentingNewLine]", 
       RowBox[{"coorlist", "=", 
        RowBox[{"Flatten", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"i", "+", 
                 RowBox[{"1", "/", "2"}]}], ")"}], "hr"}], ",", 
              RowBox[{"j", "*", "h\[Phi]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "0", ",", 
              RowBox[{"nr", "-", "1"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", "0", ",", 
              RowBox[{"n\[Phi]", "-", "1"}]}], "}"}]}], "]"}], ",", "1"}], 
         "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"unkfict", "=", 
        RowBox[{"Complement", "[", 
         RowBox[{"unk", ",", "unkmain"}], "]"}]}], ";", 
       RowBox[{"(*", 
        RowBox[{
        "\:0442\:043e\:043b\:044c\:043a\:043e", " ", 
         "\:0432\:0434\:043e\:043b\:044c", " ", 
         "\:0440\:0430\:0434\:0438\:0443\:0441\:0430", " ", 
         "\:0435\:0441\:0442\:044c"}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"FullDot", "[", 
         RowBox[{"m1_", ",", "m2_"}], "]"}], ":=", 
        RowBox[{"Total", "[", 
         RowBox[{"Flatten", "[", 
          RowBox[{"m1", "*", "m2"}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"pdersam", "[", 
         RowBox[{"buk_", ",", "ndr_", ",", "nd\[Phi]_", ",", "s_"}], "]"}], ":=",
         
        RowBox[{
         RowBox[{
          RowBox[{"FullDot", "[", 
           RowBox[{
            RowBox[{
             SuperscriptBox[
              RowBox[{"{", 
               RowBox[{"NDCoefficientList", "[", 
                RowBox[{"ndr", ",", "s"}], "]"}], "}"}], "\[Transpose]"], ".",
              
             RowBox[{"{", 
              RowBox[{"NDCoefficientList", "[", 
               RowBox[{"nd\[Phi]", ",", "s"}], "]"}], "}"}]}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"buk", "[", 
               RowBox[{"$i", ",", "$k"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"$i", ",", 
                RowBox[{"i", "-", 
                 FractionBox[
                  RowBox[{"s", "-", "1"}], "2"]}], ",", 
                RowBox[{"i", "+", 
                 FractionBox[
                  RowBox[{"s", "-", "1"}], "2"]}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"$k", ",", 
                RowBox[{"j", "-", 
                 FractionBox[
                  RowBox[{"s", "-", "1"}], "2"]}], ",", 
                RowBox[{"j", "+", 
                 FractionBox[
                  RowBox[{"s", "-", "1"}], "2"]}]}], "}"}]}], "]"}]}], "]"}], 
          "/", 
          SuperscriptBox["hr", "ndr"]}], "/", 
         SuperscriptBox["h\[Phi]", "nd\[Phi]"]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"rdersam", "[", 
         RowBox[{"buk_", ",", "\[Phi]i_", ",", "order_", ",", "s_"}], "]"}], ":=",
         
        RowBox[{
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"buk", "[", 
             RowBox[{"j", ",", "\[Phi]i"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", 
              RowBox[{"i", "-", 
               FractionBox[
                RowBox[{"s", "-", "1"}], "2"]}], ",", 
              RowBox[{"i", "+", 
               FractionBox[
                RowBox[{"s", "-", "1"}], "2"]}]}], "}"}]}], "]"}], ".", 
          RowBox[{"NDCoefficientList", "[", 
           RowBox[{"order", ",", "s"}], "]"}]}], "/", 
         SuperscriptBox["hr", "order"]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"subs", "=", 
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[Rho]", "\[Rule]", 
             RowBox[{"i", " ", "hr"}]}], ",", 
            RowBox[{"\[Phi]", "\[Rule]", 
             RowBox[{"j", " ", "h\[Phi]"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"v\[Zeta]", "[", 
              RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}], "\[Rule]", 
             RowBox[{"f", "[", 
              RowBox[{"i", ",", "j"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Derivative", "[", 
                RowBox[{"a_", ",", "b_"}], "]"}], "[", "v\[Zeta]", "]"}], "[",
               
              RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}], "\[Rule]", 
             RowBox[{"pdersam", "[", 
              RowBox[{"f", ",", "a", ",", "b", ",", 
               RowBox[{
                RowBox[{"2", "ghv"}], "+", "1"}]}], "]"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Psi]", "[", 
              RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}], "\[Rule]", 
             RowBox[{"g", "[", 
              RowBox[{"i", ",", "j"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Derivative", "[", 
                RowBox[{"a_", ",", "b_"}], "]"}], "[", "\[Psi]", "]"}], "[", 
              RowBox[{"\[Rho]", ",", "\[Phi]"}], "]"}], "\[Rule]", 
             RowBox[{"pdersam", "[", 
              RowBox[{"g", ",", "a", ",", "b", ",", 
               RowBox[{
                RowBox[{"2", "gh\[Psi]"}], "+", "1"}]}], "]"}]}]}], "}"}], 
          ",", 
          RowBox[{"{", "subst", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       
       RowBox[{"rhs", "=", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"eqs\[Phi]r", "[", 
             RowBox[{
             "\[Lambda]", ",", "\[Omega]", ",", "\[Epsilon]", ",", "\[Kappa]",
               ",", "G", ",", "R"}], "]"}], ",", "\[Lambda]"}], "]"}]}], "/.",
          "subs"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"lhs", "=", 
        RowBox[{
         RowBox[{"Coefficient", "[", 
          RowBox[{
           RowBox[{"eqs\[Phi]r", "[", 
            RowBox[{
            "\[Lambda]", ",", "\[Omega]", ",", "\[Epsilon]", ",", "\[Kappa]", 
             ",", "G", ",", "R"}], "]"}], ",", "\[Lambda]", ",", "0"}], "]"}],
          "/.", "subs"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"bcr", "=", 
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"rdersam", "[", 
                 RowBox[{"f", ",", "j", ",", "0", ",", 
                  RowBox[{"2", "ghv"}]}], "]"}], "/.", 
                RowBox[{"i", "\[Rule]", "nr"}]}], ",", 
               RowBox[{
                RowBox[{"rdersam", "[", 
                 RowBox[{"g", ",", "j", ",", "0", ",", 
                  RowBox[{"2", "gh\[Psi]"}]}], "]"}], "/.", 
                RowBox[{"i", "\[Rule]", "nr"}]}], ",", 
               RowBox[{
                RowBox[{"rdersam", "[", 
                 RowBox[{"g", ",", "j", ",", "1", ",", 
                  RowBox[{"2", "gh\[Psi]"}]}], "]"}], "/.", 
                RowBox[{"i", "\[Rule]", "nr"}]}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"j", ",", "0", ",", 
               RowBox[{"n\[Phi]", "-", "1"}]}], "}"}]}], "]"}], "]"}], ",", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"f", "[", 
              RowBox[{"i", ",", "j_"}], "]"}], "\[Rule]", 
             RowBox[{"f", "[", 
              RowBox[{
               RowBox[{"-", "i"}], ",", 
               RowBox[{"Mod", "[", 
                RowBox[{
                 RowBox[{"j", "+", 
                  RowBox[{"n\[Phi]", "/", "2"}]}], ",", "n\[Phi]"}], "]"}]}], 
              "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", 
              RowBox[{
               RowBox[{"-", "ghv"}], "+", 
               FractionBox["1", "2"]}], ",", 
              RowBox[{"-", 
               FractionBox["1", "2"]}]}], "}"}]}], "]"}], ",", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"g", "[", 
              RowBox[{"i", ",", "j_"}], "]"}], "\[Rule]", 
             RowBox[{"g", "[", 
              RowBox[{
               RowBox[{"-", "i"}], ",", 
               RowBox[{"Mod", "[", 
                RowBox[{
                 RowBox[{"j", "+", 
                  RowBox[{"n\[Phi]", "/", "2"}]}], ",", "n\[Phi]"}], "]"}]}], 
              "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", 
              RowBox[{
               RowBox[{"-", "gh\[Psi]"}], "+", 
               FractionBox["1", "2"]}], ",", 
              RowBox[{"-", 
               FractionBox["1", "2"]}]}], "}"}]}], "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"bc\[Phi]", "=", 
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"f", "[", 
              RowBox[{"i_", ",", "j"}], "]"}], "\[Rule]", 
             RowBox[{"f", "[", 
              RowBox[{"i", ",", 
               RowBox[{"n\[Phi]", "+", "j"}]}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", 
              RowBox[{"-", "ghv"}], ",", 
              RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"f", "[", 
              RowBox[{"i_", ",", "j"}], "]"}], "\[Rule]", 
             RowBox[{"f", "[", 
              RowBox[{"i", ",", 
               RowBox[{"j", "-", "n\[Phi]"}]}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", "n\[Phi]", ",", 
              RowBox[{"n\[Phi]", "+", "ghv", "-", "1"}]}], "}"}]}], "]"}], 
          ",", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"g", "[", 
              RowBox[{"i_", ",", "j"}], "]"}], "\[Rule]", 
             RowBox[{"g", "[", 
              RowBox[{"i", ",", 
               RowBox[{"n\[Phi]", "+", "j"}]}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", 
              RowBox[{"-", "gh\[Psi]"}], ",", 
              RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"g", "[", 
              RowBox[{"i_", ",", "j"}], "]"}], "\[Rule]", 
             RowBox[{"g", "[", 
              RowBox[{"i", ",", 
               RowBox[{"j", "-", "n\[Phi]"}]}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", "n\[Phi]", ",", 
              RowBox[{"n\[Phi]", "+", "gh\[Psi]", "-", "1"}]}], "}"}]}], 
           "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"bc", "=", 
        RowBox[{"Select", "[", 
         RowBox[{
          RowBox[{"Join", "[", 
           RowBox[{"bcr", ",", "bc\[Phi]"}], "]"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"Head", "[", "#", "]"}], "=!=", "Rule"}], "&"}]}], 
         "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"unkvr", "=", 
        RowBox[{"Select", "[", 
         RowBox[{
          RowBox[{"Flatten", "[", "unkfict", "]"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"First", "[", "#", "]"}], ">", "0"}], "&"}]}], "]"}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"virfict", "=", 
        RowBox[{"First", "[", 
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{"Thread", "[", 
            RowBox[{"bc", "\[Equal]", "0"}], "]"}], ",", "unkvr"}], "]"}], 
         "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"virfict", "=", 
        RowBox[{"Join", "[", 
         RowBox[{"virfict", ",", 
          RowBox[{"Select", "[", 
           RowBox[{
            RowBox[{"Join", "[", 
             RowBox[{"bcr", ",", "bc\[Phi]"}], "]"}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"Head", "[", "#", "]"}], "\[Equal]", "Rule"}], "&"}]}], 
           "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"fict", "=", 
          RowBox[{"unkfict", "/.", "virfict"}]}], ";"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"unkmain", "=", 
        RowBox[{"Flatten", "[", "unkmain", "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"rhs1", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"Coefficient", "[", 
           RowBox[{"#", ",", "unkmain"}], "]"}], "&"}], "/@", 
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{"rhs", ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", 
               RowBox[{"1", "/", "2"}], ",", 
               RowBox[{"nr", "-", 
                RowBox[{"1", "/", "2"}]}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"j", ",", "0", ",", 
               RowBox[{"n\[Phi]", "-", "1"}]}], "}"}]}], "]"}], "/.", 
           "virfict"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"lhs1", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"Coefficient", "[", 
           RowBox[{"#", ",", "unkmain"}], "]"}], "&"}], "/@", 
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{"lhs", ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", 
               RowBox[{"1", "/", "2"}], ",", 
               RowBox[{"nr", "-", 
                RowBox[{"1", "/", "2"}]}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"j", ",", "0", ",", 
               RowBox[{"n\[Phi]", "-", "1"}]}], "}"}]}], "]"}], "/.", 
           "virfict"}], "]"}]}]}], ";", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
          RowBox[{"//", "Timing"}], "//", "Print"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"rhs", "=", 
          RowBox[{
           RowBox[{
            RowBox[{"Coefficient", "[", 
             RowBox[{"#", ",", "unk"}], "]"}], "&"}], "/@", 
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"Table", "[", 
              RowBox[{"0", ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "2"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"j", ",", 
                 RowBox[{"n", "+", "sm", "-", "1"}]}], "}"}]}], "]"}], ",", 
             RowBox[{
              RowBox[{"Table", "[", 
               RowBox[{"rhs", ",", 
                RowBox[{"{", 
                 RowBox[{"i", ",", 
                  RowBox[{"1", "/", "2"}], ",", 
                  RowBox[{"n", "-", 
                   RowBox[{"1", "/", "2"}]}]}], "}"}]}], "]"}], "/", 
              "\[Omega]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{"0", ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "2"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"j", ",", 
                 RowBox[{"n", "+", "sm", "-", "1"}]}], "}"}]}], "]"}]}], 
            "]"}]}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"lhs", "=", 
          RowBox[{
           RowBox[{
            RowBox[{"Coefficient", "[", 
             RowBox[{"#", ",", "unk"}], "]"}], "&"}], "/@", 
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"dersam", "[", 
                 RowBox[{"0", ",", 
                  RowBox[{"sm", "-", "1"}]}], "]"}], "/.", 
                RowBox[{"i", "\[Rule]", "0"}]}], ",", 
               RowBox[{
                RowBox[{"dersam", "[", 
                 RowBox[{"1", ",", 
                  RowBox[{"sm", "-", "1"}]}], "]"}], "/.", 
                RowBox[{"i", "\[Rule]", "0"}]}]}], "}"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{"lhs", ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", 
                 RowBox[{"1", "/", "2"}], ",", 
                 RowBox[{"n", "-", 
                  RowBox[{"1", "/", "2"}]}]}], "}"}]}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"dersam", "[", 
                 RowBox[{"1", ",", 
                  RowBox[{"sm", "-", "1"}]}], "]"}], "/.", 
                RowBox[{"i", "\[Rule]", "n"}]}], ",", 
               RowBox[{
                RowBox[{"dersam", "[", 
                 RowBox[{"0", ",", 
                  RowBox[{"sm", "-", "1"}]}], "]"}], "/.", 
                RowBox[{"i", "\[Rule]", "n"}]}]}], "}"}]}], "]"}]}]}], ";"}], 
        "*)"}], "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Return", "[", 
          RowBox[{"rhs", ".", 
           RowBox[{"Inverse", "[", "lhs", "]"}]}], "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"Return", "[", 
        RowBox[{"{", 
         RowBox[{"lhs1", ",", "rhs1"}], "}"}], "]"}], ";"}]}], 
     "\[IndentingNewLine]", "]"}]}], ";"}]}]], "Input",
 InitializationCell->True]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["\:0424\:0443\:043d\:043a\:0446\:0438\:0438 \:043d\:0430\:0445\:043e\
\:0436\:0434\:0435\:043d\:0438\:044f \:0438\:043d\:043a\:0440\:0435\:043c\
\:0435\:043d\:0442\:043e\:0432", "Subsection"],

Cell[CellGroupData[{

Cell["\<\
\:041f\:043e\:043b\:0443\:0447\:0435\:043d\:0438\:0435 \:0441.\:0437. \:0438 \
\:0441.\:0432. \:0441 \:043f\:043e\:043c\:043e\:0449\:044c\:044e \
Eigen...[Inverse[a].m] (\:043c\:0435\:043d\:0435\:0435 \:0443\:0441\:0442\
\:043e\:0439\:0447\:0438\:0432\:043e)\
\>", "Subsubsection"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetIncrements", "[", 
    RowBox[{"n_", ",", "m_", ",", "k1_", ",", "R1_"}], "]"}], ":=", 
   RowBox[{"Eigenvalues", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Inverse", "[", 
        RowBox[{"Last", "[", "#", "]"}], "]"}], ".", 
       RowBox[{"First", "[", "#", "]"}]}], "&"}], "[", 
     RowBox[{"N", "[", 
      RowBox[{"FiniteMatrix4Eigen", "[", 
       RowBox[{"n", ",", "m", ",", 
        RowBox[{"k", "\[Rule]", "k1"}], ",", 
        RowBox[{"R", "\[Rule]", "R1"}]}], "]"}], "]"}], "]"}], "]"}]}], 
  ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetEigenWave", "[", 
    RowBox[{"n1_", ",", "m_", ",", "k1_", ",", "R1_", ",", 
     RowBox[{"mode_:", "1"}]}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"eigval", ",", "eigvec", ",", "nom", ",", "syst"}], "}"}], ",", 
     
     RowBox[{
      RowBox[{"syst", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Inverse", "[", 
           RowBox[{"Last", "[", "#", "]"}], "]"}], ".", 
          RowBox[{"First", "[", "#", "]"}]}], "&"}], "[", 
        RowBox[{"N", "[", 
         RowBox[{"FiniteMatrix4Eigen", "[", 
          RowBox[{"n1", ",", "m", ",", 
           RowBox[{"k", "\[Rule]", "k1"}], ",", 
           RowBox[{"R", "\[Rule]", "R1"}]}], "]"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"eigval", ",", "eigvec"}], "}"}], "=", 
       RowBox[{
        RowBox[{"Select", "[", 
         RowBox[{
          RowBox[{"Transpose", "[", 
           RowBox[{"Eigensystem", "[", "syst", "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"NumericQ", "[", 
            RowBox[{"First", "[", "#", "]"}], "]"}], "&"}]}], "]"}], "//", 
        "Transpose"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"nom", "=", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"Position", "[", 
          RowBox[{"eigval", ",", 
           RowBox[{
            RowBox[{"Sort", "[", 
             RowBox[{"eigval", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"Re", "[", "#1", "]"}], ">", 
                RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}], 
            "\[LeftDoubleBracket]", "mode", "\[RightDoubleBracket]"}]}], 
          "]"}], "]"}], "//", "First"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Main eigen value is \>\"", ",", 
        RowBox[{"eigval", "[", 
         RowBox[{"[", "nom", "]"}], "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{
       "eigvec", "\[LeftDoubleBracket]", "nom", "\[RightDoubleBracket]"}], 
       "]"}], ";"}]}], "]"}]}], ";"}]], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
\:041f\:043e\:043b\:0443\:0447\:0435\:043d\:0438\:0435 \:0441.\:0437. \:0438 \
\:0441.\:0432. \:0441 \:043f\:043e\:043c\:043e\:0449\:044c\:044e \
Eigen...[{m,a}]\
\>", "Subsubsection"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetIncrementsM", "[", 
    RowBox[{"mat_", ",", "Re1_"}], "]"}], ":=", 
   RowBox[{"Select", "[", 
    RowBox[{
     RowBox[{"Eigenvalues", "[", 
      RowBox[{"mat", "[", "Re1", "]"}], "]"}], ",", "NumericQ"}], "]"}]}], 
  ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetEigenWaveM", "[", 
    RowBox[{"syst_", ",", 
     RowBox[{"mode_:", "1"}]}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"eigval", ",", "eigvec", ",", "nom"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"eigval", ",", "eigvec"}], "}"}], "=", 
       RowBox[{
        RowBox[{"Select", "[", 
         RowBox[{
          RowBox[{"Transpose", "[", 
           RowBox[{"Eigensystem", "[", "syst", "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"NumericQ", "[", 
            RowBox[{"First", "[", "#", "]"}], "]"}], "&"}]}], "]"}], "//", 
        "Transpose"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"nom", "=", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"Position", "[", 
          RowBox[{"eigval", ",", 
           RowBox[{
            RowBox[{"Sort", "[", 
             RowBox[{"eigval", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"Re", "[", "#1", "]"}], ">", 
                RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}], 
            "\[LeftDoubleBracket]", "mode", "\[RightDoubleBracket]"}]}], 
          "]"}], "]"}], "//", "First"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Main eigen value is \>\"", ",", 
        RowBox[{"eigval", "[", 
         RowBox[{"[", "nom", "]"}], "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{
       "eigvec", "\[LeftDoubleBracket]", "nom", "\[RightDoubleBracket]"}], 
       "]"}], ";"}]}], "]"}]}], ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetIncrements", "[", 
    RowBox[{
    "nr_", ",", "n\[Phi]_", ",", "\[Kappa]1_", ",", "R1_", ",", "subst___"}], 
    "]"}], ":=", 
   RowBox[{"Select", "[", 
    RowBox[{
     RowBox[{"Eigenvalues", "[", 
      RowBox[{"N", "[", 
       RowBox[{"FiniteMatrix4Eigen", "[", 
        RowBox[{"nr", ",", "n\[Phi]", ",", "subst", ",", 
         RowBox[{"\[Kappa]", "\[Rule]", "\[Kappa]1"}], ",", 
         RowBox[{"R", "\[Rule]", "R1"}], ",", 
         RowBox[{"\[Omega]", "\[Rule]", "0"}], ",", 
         RowBox[{"\[Epsilon]", "\[Rule]", "0"}], ",", 
         RowBox[{"G", "\[Rule]", "4"}]}], "]"}], "]"}], "]"}], ",", 
     "NumericQ"}], "]"}]}], ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetEigenWave", "[", 
    RowBox[{"n1_", ",", "m_", ",", "k1_", ",", "R1_", ",", 
     RowBox[{"mode_:", "1"}]}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"eigval", ",", "eigvec", ",", "nom", ",", "syst"}], "}"}], ",", 
     
     RowBox[{
      RowBox[{"syst", "=", 
       RowBox[{"N", "[", 
        RowBox[{"FiniteMatrix4Eigen", "[", 
         RowBox[{"n1", ",", "m", ",", 
          RowBox[{"k", "\[Rule]", "k1"}], ",", 
          RowBox[{"R", "\[Rule]", "R1"}], ",", 
          RowBox[{"\[Omega]", "\[Rule]", "0"}], ",", 
          RowBox[{"\[Epsilon]", "\[Rule]", "0"}], ",", 
          RowBox[{"G", "\[Rule]", "4"}]}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"eigval", ",", "eigvec"}], "}"}], "=", 
       RowBox[{
        RowBox[{"Select", "[", 
         RowBox[{
          RowBox[{"Transpose", "[", 
           RowBox[{"Eigensystem", "[", "syst", "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"NumericQ", "[", 
            RowBox[{"First", "[", "#", "]"}], "]"}], "&"}]}], "]"}], "//", 
        "Transpose"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"nom", "=", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"Position", "[", 
          RowBox[{"eigval", ",", 
           RowBox[{
            RowBox[{"Sort", "[", 
             RowBox[{"eigval", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"Re", "[", "#1", "]"}], ">", 
                RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}], 
            "\[LeftDoubleBracket]", "mode", "\[RightDoubleBracket]"}]}], 
          "]"}], "]"}], "//", "First"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Main eigen value is \>\"", ",", 
        RowBox[{"eigval", "[", 
         RowBox[{"[", "nom", "]"}], "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{
       "eigvec", "\[LeftDoubleBracket]", "nom", "\[RightDoubleBracket]"}], 
       "]"}], ";"}]}], "]"}]}], ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetMainIncrement", "[", 
    RowBox[{"n_", ",", "m_", ",", "k1_", ",", "R1_", ",", 
     RowBox[{"num_:", "1"}]}], "]"}], ":=", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"GetMainIncrement", "[", 
      RowBox[{"n", ",", "k1", ",", "R1", ",", "num"}], "]"}], "="}], "*)"}], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Print", "[", 
      RowBox[{"{", 
       RowBox[{"n", ",", "k1", ",", "R1"}], "}"}], "]"}], ";", 
     RowBox[{
      RowBox[{"Take", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Re", "/@", 
          RowBox[{"GetIncrementsM", "[", 
           RowBox[{"mat", "[", "R1", "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"-", "num"}], "}"}]}], "]"}], "//", "First"}]}], ")"}]}], 
  ";"}]], "Input",
 InitializationCell->True]
}, Closed]],

Cell[CellGroupData[{

Cell["\:041f\:0440\:043e\:0432\:0435\:0440\:043a\:0438", "Subsubsection"],

Cell[BoxData[
 RowBox[{"Take", "[", 
  RowBox[{
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"GetIncrements", "[", 
      RowBox[{"20", ",", "0", ",", "1", ",", "100"}], "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Re", "[", "#1", "]"}], ">", 
       RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}], ",", "10"}], 
  "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetMainIncrement", "[", 
  RowBox[{"100", ",", "0", ",", "1", ",", "100", ",", "2"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"100", ",", "1", ",", "100"}], "}"}]], "Print"],

Cell[BoxData[
 RowBox[{"-", "0.2736337556281337`"}]], "Output"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "\:041e\:0442\:043a\:043b\:043e\:043d\:0435\:043d\:0438\:044f", " ", 
   "\:0432", " ", 
   "\:043e\:043f\:0440\:0435\:0434\:0435\:043b\:0438\:0442\:0435\:043b\:0435",
    " ", "\:043f\:043e\:0441\:043b\:0435", " ", 
   "\:043f\:043e\:0434\:0441\:0442\:0430\:043d\:043e\:0432\:043a\:0438", " ", 
   "\:0441\:043e\:0431\:0441\:0442\:0432\:0435\:043d\:043d\:043e\:0433\:043e",
    " ", "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:044f", 
   "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"n2", "=", "3"}], ",", 
       RowBox[{"m", "=", "0"}], ",", 
       RowBox[{"k2", "=", "1"}], ",", 
       RowBox[{"R2", "=", "100"}], ",", 
       RowBox[{"mod", "=", "1"}]}], "}"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Det", "[", 
        RowBox[{"SetPrecision", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"First", "[", "#", "]"}], "-", 
           RowBox[{
            RowBox[{
             RowBox[{"Sort", "[", 
              RowBox[{
               RowBox[{"GetIncrements", "[", 
                RowBox[{"n2", ",", "m", ",", "k2", ",", "R2"}], "]"}], ",", 
               RowBox[{
                RowBox[{
                 RowBox[{"Re", "[", "#1", "]"}], ">", 
                 RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}], "[", 
             RowBox[{"[", "mod", "]"}], "]"}], 
            RowBox[{"Last", "[", "#", "]"}]}]}], ",", "1000"}], "]"}], "]"}], 
       "&"}], "[", 
      RowBox[{"SetPrecision", "[", 
       RowBox[{
        RowBox[{"FiniteMatrix4Eigen", "[", 
         RowBox[{"n2", ",", "m", ",", 
          RowBox[{"k", "\[Rule]", "k2"}], ",", 
          RowBox[{"R", "\[Rule]", "R2"}]}], "]"}], ",", "1000"}], "]"}], 
      "]"}]}], "]"}]}], "*)"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "\:041e\:0442\:043a\:043b\:043e\:043d\:0435\:043d\:0438\:044f", " ", 
    "\:0432", " ", "\:0432\:0435\:043a\:0442\:043e\:0440\:0435", " ", 
    "\:043f\:043e\:0441\:043b\:0435", " ", 
    "\:043f\:043e\:0434\:0441\:0442\:0430\:043d\:043e\:0432\:043a\:0438", " ",
     "\:0441\:043e\:0431\:0441\:0442\:0432\:0435\:043d\:043d\:044b\:0445", 
    " ", "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:0439", " ", "\:0438", 
    " ", "\:0432\:0435\:043a\:0442\:043e\:0440\:043e\:0432"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"With", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"n2", "=", "300"}], ",", 
         RowBox[{"m", "=", "0"}], ",", 
         RowBox[{"k2", "=", "1"}], ",", 
         RowBox[{"R2", "=", "1000"}], ",", 
         RowBox[{"mod", "=", "2"}]}], "}"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"First", "[", "#", "]"}], "-", 
            RowBox[{
             RowBox[{
              RowBox[{"Sort", "[", 
               RowBox[{
                RowBox[{"GetIncrements", "[", 
                 RowBox[{"n2", ",", "m", ",", "k2", ",", "R2"}], "]"}], ",", 
                RowBox[{
                 RowBox[{
                  RowBox[{"Re", "[", "#1", "]"}], ">", 
                  RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}], "[", 
              RowBox[{"[", "mod", "]"}], "]"}], 
             RowBox[{"Last", "[", "#", "]"}]}]}], ")"}], ".", 
          RowBox[{"GetEigenWave", "[", 
           RowBox[{"n2", ",", "m", ",", "k2", ",", "R2", ",", "mod"}], 
           "]"}]}], "&"}], "[", 
        RowBox[{"FiniteMatrix4Eigen", "[", 
         RowBox[{"n2", ",", "m", ",", 
          RowBox[{"k", "\[Rule]", "k2"}], ",", 
          RowBox[{"R", "\[Rule]", "R2"}]}], "]"}], "]"}]}], "]"}], "//", 
     "Abs"}], "//", "PrintRange"}], ";"}]}]], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintRange", "[", 
  RowBox[{"GetIncrementsM", "[", 
   RowBox[{"mat", ",", "0.1"}], "]"}], "]"}]], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0190237 0.00478583 0.507793 1.18116e-005 [
[.25832 .49529 -6 -9 ]
[.25832 .49529 6 0 ]
[.49761 .49529 -9 -9 ]
[.49761 .49529 9 0 ]
[.7369 .49529 -9 -9 ]
[.7369 .49529 9 0 ]
[.97619 .49529 -9 -9 ]
[.97619 .49529 9 0 ]
[.00652 .03533 -36 -4.5 ]
[.00652 .03533 0 4.5 ]
[.00652 .15345 -36 -4.5 ]
[.00652 .15345 0 4.5 ]
[.00652 .27156 -36 -4.5 ]
[.00652 .27156 0 4.5 ]
[.00652 .38968 -36 -4.5 ]
[.00652 .38968 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.25832 .50779 m
.25832 .51404 L
s
[(50)] .25832 .49529 0 1 Mshowa
.49761 .50779 m
.49761 .51404 L
s
[(100)] .49761 .49529 0 1 Mshowa
.7369 .50779 m
.7369 .51404 L
s
[(150)] .7369 .49529 0 1 Mshowa
.97619 .50779 m
.97619 .51404 L
s
[(200)] .97619 .49529 0 1 Mshowa
.125 Mabswid
.06688 .50779 m
.06688 .51154 L
s
.11474 .50779 m
.11474 .51154 L
s
.1626 .50779 m
.1626 .51154 L
s
.21046 .50779 m
.21046 .51154 L
s
.30617 .50779 m
.30617 .51154 L
s
.35403 .50779 m
.35403 .51154 L
s
.40189 .50779 m
.40189 .51154 L
s
.44975 .50779 m
.44975 .51154 L
s
.54547 .50779 m
.54547 .51154 L
s
.59332 .50779 m
.59332 .51154 L
s
.64118 .50779 m
.64118 .51154 L
s
.68904 .50779 m
.68904 .51154 L
s
.78476 .50779 m
.78476 .51154 L
s
.83262 .50779 m
.83262 .51154 L
s
.88047 .50779 m
.88047 .51154 L
s
.92833 .50779 m
.92833 .51154 L
s
.25 Mabswid
0 .50779 m
1 .50779 L
s
.01902 .03533 m
.02527 .03533 L
s
[(-40000)] .00652 .03533 1 0 Mshowa
.01902 .15345 m
.02527 .15345 L
s
[(-30000)] .00652 .15345 1 0 Mshowa
.01902 .27156 m
.02527 .27156 L
s
[(-20000)] .00652 .27156 1 0 Mshowa
.01902 .38968 m
.02527 .38968 L
s
[(-10000)] .00652 .38968 1 0 Mshowa
.125 Mabswid
.01902 .05895 m
.02277 .05895 L
s
.01902 .08258 m
.02277 .08258 L
s
.01902 .1062 m
.02277 .1062 L
s
.01902 .12982 m
.02277 .12982 L
s
.01902 .17707 m
.02277 .17707 L
s
.01902 .20069 m
.02277 .20069 L
s
.01902 .22432 m
.02277 .22432 L
s
.01902 .24794 m
.02277 .24794 L
s
.01902 .29519 m
.02277 .29519 L
s
.01902 .31881 m
.02277 .31881 L
s
.01902 .34243 m
.02277 .34243 L
s
.01902 .36605 m
.02277 .36605 L
s
.01902 .4133 m
.02277 .4133 L
s
.01902 .43692 m
.02277 .43692 L
s
.01902 .46055 m
.02277 .46055 L
s
.01902 .48417 m
.02277 .48417 L
s
.01902 .01171 m
.02277 .01171 L
s
.01902 .53142 m
.02277 .53142 L
s
.01902 .55504 m
.02277 .55504 L
s
.01902 .57866 m
.02277 .57866 L
s
.01902 .60229 m
.02277 .60229 L
s
.25 Mabswid
.01902 0 m
.01902 .61803 L
s
.5 Mabswid
.02381 .01472 m
.0286 .04299 L
.03338 .08755 L
.03817 .14477 L
.04295 .20999 L
.04774 .24976 L
.05252 .26098 L
.05731 .27143 L
.0621 .27786 L
.06688 .28114 L
.07167 .28995 L
.07645 .2977 L
.08124 .30426 L
.08603 .30949 L
.09081 .31329 L
.0956 .3156 L
.10038 .34276 L
.10517 .35459 L
.10995 .36855 L
.11474 .39198 L
.11953 .39905 L
.12431 .60332 L
.1291 .59616 L
.13388 .42477 L
.13867 .42813 L
.14346 .43103 L
.14824 .43555 L
.15303 .43769 L
.15781 .43933 L
.1626 .44088 L
.16738 .44119 L
.17217 .44196 L
.17696 .44359 L
.18174 .44731 L
.18653 .56604 L
.19131 .45308 L
s
.20567 .45573 m
.21046 .45639 L
.21524 .45733 L
.22003 .45754 L
.22481 .45834 L
.2296 .45919 L
.23439 .45955 L
.23917 .45978 L
.24396 .45979 L
.24874 .45979 L
.25353 .45985 L
.25832 .4602 L
.2631 .4604 L
.26789 .46044 L
.27267 .46048 L
.27746 .46085 L
.28224 .46108 L
.28703 .46138 L
.29182 .4615 L
.2966 .4618 L
.30139 .46231 L
.30617 .4628 L
.31096 .46301 L
.31575 .46362 L
.32053 .46385 L
.32532 .46435 L
.3301 .46445 L
.33489 .4647 L
.33967 .46477 L
.34446 .46547 L
.34925 .46549 L
.35403 .46608 L
.35882 .46644 L
.3636 .46697 L
.36839 .46738 L
.37318 .46766 L
.37796 .46777 L
.38275 .46869 L
.38753 .46911 L
.39232 .46918 L
.3971 .46971 L
.40189 .46993 L
.40668 .47001 L
.41146 .4702 L
.41625 .47076 L
.42103 .47083 L
.42582 .47096 L
.43061 .4712 L
.43539 .47175 L
.44018 .47176 L
Mistroke
.44496 .4722 L
.44975 .47227 L
.45453 .47256 L
.45932 .47294 L
.46411 .47296 L
.46889 .47334 L
.47368 .47335 L
.47846 .47347 L
.48325 .47378 L
.48804 .47395 L
.49282 .47434 L
.49761 .47445 L
.50239 .47446 L
.50718 .47521 L
.51196 .47527 L
.51675 .47545 L
.52154 .4761 L
.52632 .47631 L
.53111 .53914 L
.53589 .47658 L
.54068 .47669 L
.54547 .47701 L
.55025 .47821 L
.55504 .47835 L
.55982 .47899 L
.56461 .4795 L
.56939 .47988 L
.57418 .47999 L
.57897 .48013 L
.58375 .48021 L
.58854 .48051 L
.59332 .48062 L
.59811 .48064 L
.6029 .48075 L
.60768 .48133 L
.61247 .4814 L
.61725 .48202 L
.62204 .48229 L
.62682 .48232 L
.63161 .48346 L
.6364 .48438 L
.64118 .48445 L
.64597 .48483 L
.65075 .48484 L
.65554 .48577 L
.66033 .48635 L
.66511 .48637 L
.6699 .48653 L
.67468 .48684 L
.67947 .48718 L
Mistroke
.68425 .48772 L
.68904 .48797 L
.69383 .48845 L
.69861 .48873 L
.7034 .4891 L
.70818 .48927 L
.71297 .4897 L
.71776 .4897 L
.72254 .49052 L
Mfstroke
.7369 .49132 m
.74168 .49152 L
.74647 .4918 L
.75126 .49196 L
.75604 .49214 L
.76083 .4923 L
.76561 .49267 L
.7704 .49395 L
.77519 .49443 L
.77997 .49467 L
.78476 .49507 L
.78954 .49529 L
.79433 .4956 L
.79911 .49626 L
.8039 .49647 L
.80869 .4967 L
.81347 .49674 L
.81826 .49676 L
.82304 .49722 L
.82783 .4978 L
.83262 .49784 L
.8374 .49834 L
.84219 .4984 L
.84697 .49859 L
.85176 .49875 L
.85654 .49878 L
.86133 .49946 L
.86612 .50039 L
.8709 .50138 L
.87569 .50167 L
.88047 .50179 L
.88526 .50198 L
.89005 .50225 L
.89483 .50238 L
.89962 .50258 L
.9044 .50274 L
.90919 .5029 L
.91397 .50292 L
.91876 .50308 L
.92355 .50321 L
.92833 .50327 L
.93312 .50347 L
.9379 .50359 L
.94269 .50361 L
.94748 .50365 L
.95226 .50405 L
.95705 .50457 L
.96183 .50511 L
.96662 .50566 L
.9714 .50619 L
Mistroke
.97619 .50672 L
Mfstroke
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzVWttu1DAQndbZa7ftdkvvV+6l0LLQ7oJAqG+0PPQDEE+rCrRFQqDSN5D8
FfB5iK/gNXidJvHYcZyLk25fXO+cOTMeZzx2nJ4OLocfvwwuz88G28cXg2/D
87Pv22+/XjARmQCYGALAnzaw/k8gf2HLpe45dQHK+ttlDQGg7PdI1rcgI6Bq
QHpZg1si1HUAHKWtRDCarKl44+FypgnO1fgMP/wwJoszGwCs6XEFGMmrEDqV
NRMbd0KrNVGN5LasDrtwB3XhGRRhnyXWZFRKhYmlULqphGKysPYwXBc8HvCW
y4FBvXC5kvPeuJ6Fw9UgJua44zcgMoLxriWcQFGWY/Ea91wxlXINuyrlsIWa
EOfO5i6iceGoQWXzonmedb/C3fB5KvnJJ09TB7OfyougIJzAdXm2hlcwvh9G
pkFMzHHHS4isivG9McEJ5LZcw/iTJDizWYk/3vmMOmY/psWWnCh3YgAW63UD
u9ql3qYjqucPjECkn4ZmTDlDamJXj6j9LWgKu9gpOB9a2N1DmmoLmsbsB/LS
MOEzGL9Pg0WrQQLZLMbvyXgb43dlfA7jd9LiHYzflvF5fvqJQhYwczOMWYOY
mIFsEeMbZeNLGF8PI9MgJmZifBnja7bxFYyvJsSZaBUjKzKzCLzGNx/jpZWG
XVDpXMOulkt2JQWe3xvrXnNIBblax66WaLAjWDwbbGAni3I8SZI3ykY3P85E
BVlOhUsXZreidBxfh3CdjsmOdOEza9In/ibma17NjahT8b23TNbq/hVx3aTZ
8v1WTZrSMYEUoS9er06mIrCcrQH8008e0mYnvwWAnlK8XyiSnvJ2kS4Q8Vim
LGRhCc4C7GgWsJbWT0t4riadljT6WMXaVMF2dI4ZMIXXeuoAazqlA6EfVzat
BsRYc4BO9PYCOsSZYTWgmSCFo8a9z/Yg9fNU1OBJrJ1ewnnJGIH2cfv9V3r/
Df+jzKhGA0oeksByn8a/gSaMKHilgmQBvYw/FHibR/CxiWEdgC3lLkpnPXtZ
iKizUmhBOX2jZI9XTsWBzPPns4w1Awt95V3ZWIrFwQzFSDZ5xR1m5u9Rdxrg
Q1q+3z+ibhPgNCv9HXXb3oxmor/ng1e+5CSlf+Kbp/LitinOj477g7oz3qYI
u9Rl7WsvrZGlltSv+lapdHR1eN5XY6hZ+zVumeSwMJWD24yaW38K23xo4gXF
iTLwI0FynM7wZ97+tqsYoL+yqRMoxm6kungfNSyN5EZsG9eoK834GI80Upf9
XrCESzNh0XKZuPeSt4hiwjLVmjfPijXXwr+NuSX/2xtM/AeLdBgi\
\>"],
 ImageRangeCache->{{{0, 359}, {221.375, 0}} -> {-32.7298, -46843.8, 0.83656, \
338.958}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"mat", "[", "R_", "]"}], "=", 
   RowBox[{"SparseArray", "[", 
    RowBox[{"N", "[", 
     RowBox[{"FiniteMatrix4Eigen", "[", 
      RowBox[{"20", ",", "20", ",", 
       RowBox[{"\[Omega]", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Epsilon]", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Kappa]", "\[Rule]", "0"}], ",", 
       RowBox[{"G", "\[Rule]", "4"}]}], "]"}], "]"}], "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.407212499242*^9, 3.407212510992*^9}, {
  3.4072170729440002`*^9, 3.407217073032*^9}}],

Cell[BoxData["24.367999999999988`"], "Print",
 CellChangeTimes->{3.407212629053*^9, 3.407212913387*^9, 
  3.4072170984560003`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"matk0G4", "=", 
   RowBox[{"mat", "[", "R", "]"}]}], ";"}]], "Input"],

Cell[BoxData["0.030999999999975936`"], "Print",
 CellChangeTimes->{3.407212629119*^9, 3.407217098541*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"mat", "[", "R_", "]"}], "=", 
   RowBox[{"SparseArray", "[", 
    RowBox[{"N", "[", 
     RowBox[{"FiniteMatrix4Eigen", "[", 
      RowBox[{"20", ",", "20", ",", 
       RowBox[{"\[Omega]", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Epsilon]", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Kappa]", "\[Rule]", "0.1"}], ",", 
       RowBox[{"G", "\[Rule]", "4"}]}], "]"}], "]"}], "]"}]}], ";"}]], "Input"],

Cell[BoxData["98.15600000000002`"], "Print",
 CellChangeTimes->{3.407217198892*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"matk01G4", "=", 
   RowBox[{"mat", "[", "R", "]"}]}], ";"}]], "Input"],

Cell[BoxData["0.17200000000000706`"], "Print",
 CellChangeTimes->{3.4072127523120003`*^9, 3.4072129137*^9, 3.407217199153*^9}
  ]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Take", "[", 
   RowBox[{
    RowBox[{"Sort", "[", 
     RowBox[{"Re", "[", "incsR10k01G4", "]"}], "]"}], ",", 
    RowBox[{"-", "20"}]}], "]"}], "//", "Reverse"}]], "Input",
 CellChangeTimes->{{3.407215748966*^9, 3.4072157604049997`*^9}, {
  3.40721651904*^9, 3.407216525774*^9}}],

Cell[BoxData["1.8041124150158794`*^-15"], "Print",
 CellChangeTimes->{{3.407215749861*^9, 3.407215761271*^9}, {
  3.4072165225959997`*^9, 3.407216526185*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.8041588688233136`", ",", "0.31175272503352564`", ",", 
   "0.3117527250335256`", ",", "0.15323999161130553`", ",", 
   "0.15323999161130553`", ",", "0.05092086232421076`", ",", 
   "0.05092086232421076`", ",", 
   RowBox[{"-", "0.06682099910147263`"}], ",", 
   RowBox[{"-", "0.1486130189939228`"}], ",", 
   RowBox[{"-", "0.1486130189939228`"}], ",", 
   RowBox[{"-", "0.31238841906699133`"}], ",", 
   RowBox[{"-", "0.381866949981857`"}], ",", 
   RowBox[{"-", "0.381866949981857`"}], ",", 
   RowBox[{"-", "0.4627779401544109`"}], ",", 
   RowBox[{"-", "0.4627779401544109`"}], ",", 
   RowBox[{"-", "0.46506241969611123`"}], ",", 
   RowBox[{"-", "0.46506241969611123`"}], ",", 
   RowBox[{"-", "0.516517962165954`"}], ",", 
   RowBox[{"-", "0.5165179621659541`"}], ",", 
   RowBox[{"-", "0.5747763895824384`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.407215750442*^9, 3.407215761385*^9}, {3.40721652265*^9, 
  3.40721652624*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintRange", "[", 
   RowBox[{"Re", "[", 
    RowBox[{"incsR10k01G4", "-", "incsR10k0G0"}], "]"}], "]"}], 
  ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"incsR1k0G4", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"GetIncrementsM", "[", 
      RowBox[{
       RowBox[{"Function", "[", 
        RowBox[{"R", ",", 
         RowBox[{"Evaluate", "[", "matk0G4", "]"}]}], "]"}], ",", "1"}], 
      "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Re", "[", "#1", "]"}], ">", 
       RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}]}], ";"}]], "Input"],

Cell[BoxData["12.83899999999999`"], "Print",
 CellChangeTimes->{3.4072172165480003`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"incsR10k01G4", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"GetIncrementsM", "[", 
      RowBox[{
       RowBox[{"Function", "[", 
        RowBox[{"R", ",", 
         RowBox[{"Evaluate", "[", "matk01G4", "]"}]}], "]"}], ",", "300"}], 
      "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Re", "[", "#1", "]"}], ">", 
       RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.407212588781*^9}],

Cell[BoxData["13.150999999999996`"], "Print",
 CellChangeTimes->{3.407212638877*^9, 3.4072127573599997`*^9, 
  3.4072129288900003`*^9, 3.407217230939*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Sort", "[", 
   RowBox[{
    RowBox[{"GetIncrementsM", "[", 
     RowBox[{"mat", ",", "1"}], "]"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"Re", "[", "#1", "]"}], ">", 
      RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}], "//", 
  "Chop"}]], "Input"],

Cell[CellGroupData[{

Cell["\:0418\:0441\:0441\:043b\:0435\:0434\:043e\:0432\:0430\:043d\:0438\:0435\
 \:0433\:043b\:0430\:0432\:043d\:044b\:0445 \:0433\:0430\:0440\:043c\:043e\
\:043d\:0438\:043a", "Subsection"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"NumMode", "[", 
    RowBox[{"mat_", ",", "n\[Phi]_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"funcs", "=", 
        RowBox[{"Partition", "[", 
         RowBox[{"mat", ",", 
          RowBox[{
           RowBox[{"Length", "[", "mat", "]"}], "/", "2"}]}], "]"}]}], ",", 
       "func", ",", "lf"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"func", "=", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Max", "[", 
           RowBox[{"Abs", "[", 
            RowBox[{"Chop", "[", 
             RowBox[{"First", "[", "funcs", "]"}], "]"}], "]"}], "]"}], ">", 
          FractionBox[
           RowBox[{"Max", "[", 
            RowBox[{"Abs", "[", "funcs", "]"}], "]"}], 
           SuperscriptBox["10", "5"]]}], ",", 
         RowBox[{"First", "[", "funcs", "]"}], ",", 
         RowBox[{"Last", "[", "funcs", "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"lf", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"Take", "[", 
          RowBox[{"#", ",", 
           RowBox[{
            RowBox[{"Length", "[", "#", "]"}], "/", "2"}]}], "]"}], "&"}], 
        "[", 
        RowBox[{"First", "[", 
         RowBox[{"Abs", "[", 
          RowBox[{"Fourier", "[", 
           RowBox[{"Partition", "[", 
            RowBox[{"func", ",", "n\[Phi]"}], "]"}], "]"}], "]"}], "]"}], 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{
        RowBox[{"First", "[", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Position", "[", 
           RowBox[{"lf", ",", 
            RowBox[{"Max", "[", "lf", "]"}]}], "]"}], "]"}], "]"}], "-", 
        "1"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"matsolv", "=", 
   RowBox[{"GetEigenWaveM", "[", 
    RowBox[{
     RowBox[{"mat", "[", "1", "]"}], ",", "3"}], "]"}]}], ";"}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Main eigen value is \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"-", "5.778630413167351`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}],
  SequenceForm["Main eigen value is ", 
   Complex[-5.778630413167351, 0.]],
  Editable->False]], "Print"],

Cell[BoxData[
 RowBox[{"50.26500000000001`", " ", "Second"}]], "Print"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"matsolv", "=", 
   RowBox[{"GetEigenWaveM", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{
       RowBox[{"Normal", "[", "matk01G4", "]"}], "/.", 
       RowBox[{"R", "\[Rule]", "1000"}]}], "]"}], ",", "12"}], "]"}]}], 
  ";"}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Main eigen value is \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"2.477215781422549`", "\[InvisibleSpace]"}], "+", 
    RowBox[{"22.136843780331912`", " ", "\[ImaginaryI]"}]}]}],
  SequenceForm["Main eigen value is ", 
   Complex[2.477215781422549, 22.136843780331912`]],
  Editable->False]], "Print"],

Cell[BoxData[
 RowBox[{"185.20600000000013`", " ", "Second"}]], "Print"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FreeQ", "[", 
  RowBox[{
   RowBox[{"Chop", "[", "matsolv", "]"}], ",", "\[ImaginaryI]"}], 
  "]"}]], "Input"],

Cell[BoxData["True"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:0421\:0445\:043e\:0434\:0438\:043c\:043e\:0441\:0442\:044c", \
"Subsubsection"],

Cell[BoxData[
 RowBox[{
  RowBox[{"linctor1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Sort", "[", 
       RowBox[{
        RowBox[{"GetIncrements", "[", 
         RowBox[{
          RowBox[{"2", "n"}], ",", 
          RowBox[{"2", "n"}], ",", "0", ",", "1"}], "]"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"Re", "[", "#1", "]"}], ">", 
          RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}], "//", "Chop"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "1", ",", "10"}], "}"}]}], "]"}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"nm", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"NumMode", "[", 
     RowBox[{
      RowBox[{"GetEigenWaveM", "[", 
       RowBox[{
        RowBox[{"mat", "[", "1", "]"}], ",", "#"}], "]"}], ",", "20"}], "]"}],
     "&"}], "/@", 
   RowBox[{"Range", "[", "50", "]"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2", ",", "2", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", 
   ",", "2", ",", "2", ",", "0", ",", "3", ",", "3", ",", "2", ",", "2", ",", 
   "0", ",", "1", ",", "1", ",", "4", ",", "4", ",", "3", ",", "3", ",", "5", 
   ",", "5", ",", "4", ",", "4", ",", "1", ",", "1", ",", "2", ",", "2", ",", 
   "0", ",", "6", ",", "6", ",", "5", ",", "5", ",", "7", ",", "7", ",", "3", 
   ",", "3", ",", "6", ",", "6", ",", "2", ",", "2", ",", "0", ",", "8", ",", 
   "8", ",", "7", ",", "7", ",", "1", ",", "1"}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Take", "[", 
  RowBox[{
   RowBox[{"Last", "[", "linctor1", "]"}], ",", "50"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"382.8741372001543`", ",", "382.87413711837803`", ",", 
   RowBox[{"-", "5.7786302273368015`"}], ",", 
   RowBox[{"-", "14.55288862401047`"}], ",", 
   RowBox[{"-", "14.622981173105822`"}], ",", 
   RowBox[{"-", "14.622981173907569`"}], ",", 
   RowBox[{"-", "25.696928304746574`"}], ",", 
   RowBox[{"-", "25.69732737397803`"}], ",", 
   RowBox[{"-", "25.912703853169834`"}], ",", 
   RowBox[{"-", "25.91270386319682`"}], ",", 
   RowBox[{"-", "30.290937523906265`"}], ",", 
   RowBox[{"-", "38.942326547148`"}], ",", 
   RowBox[{"-", "38.94232656024308`"}], ",", 
   RowBox[{"-", "39.50334525054287`"}], ",", 
   RowBox[{"-", "39.50395395929225`"}], ",", 
   RowBox[{"-", "48.2702246525993`"}], ",", 
   RowBox[{"-", "48.80302685831628`"}], ",", 
   RowBox[{"-", "48.80302688407419`"}], ",", 
   RowBox[{"-", "52.889672865992914`"}], ",", 
   RowBox[{"-", "52.889672876125026`"}], ",", 
   RowBox[{"-", "53.62644144947999`"}], ",", 
   RowBox[{"-", "53.62726310636163`"}], ",", 
   RowBox[{"-", "66.84830389226435`"}], ",", 
   RowBox[{"-", "66.84830390501449`"}], ",", 
   RowBox[{"-", "67.76737996166278`"}], ",", 
   RowBox[{"-", "67.76842187522702`"}], ",", 
   RowBox[{"-", "68.88927792184401`"}], ",", 
   RowBox[{"-", "68.89032169214425`"}], ",", 
   RowBox[{"-", "69.56896046034615`"}], ",", 
   RowBox[{"-", "69.5689604605221`"}], ",", 
   RowBox[{"-", "73.7566927996468`"}], ",", 
   RowBox[{"-", "79.88583944930134`"}], ",", 
   RowBox[{"-", "79.88583944998862`"}], ",", 
   RowBox[{"-", "80.80640010548136`"}], ",", 
   RowBox[{"-", "80.80765184175279`"}], ",", 
   RowBox[{"-", "91.11211274123374`"}], ",", 
   RowBox[{"-", "91.11211274483043`"}], ",", 
   RowBox[{"-", "91.7017516696893`"}], ",", 
   RowBox[{"-", "91.70175167723505`"}], ",", 
   RowBox[{"-", "92.05035802800279`"}], ",", 
   RowBox[{"-", "92.05179299925666`"}], ",", 
   RowBox[{"-", "92.46941906086978`"}], ",", 
   RowBox[{"-", "92.4708068403769`"}], ",", 
   RowBox[{"-", "98.89751352149207`"}], ",", 
   RowBox[{"-", "99.74786534519153`"}], ",", 
   RowBox[{"-", "99.74786535173605`"}], ",", 
   RowBox[{"-", "101.05562913099419`"}], ",", 
   RowBox[{"-", "101.0572169163341`"}], ",", 
   RowBox[{"-", "101.67594849146805`"}], ",", 
   RowBox[{"-", "101.67594852101375`"}]}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Flatten", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Take", "[", 
      RowBox[{
       RowBox[{"Last", "[", "linctor1", "]"}], ",", "50"}], "]"}], 
     "\[LeftDoubleBracket]", "#", "\[RightDoubleBracket]"}], "&"}], "/@", 
   RowBox[{"Position", "[", 
    RowBox[{"nm", ",", "1"}], "]"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "14.55288862401047`"}], ",", 
   RowBox[{"-", "14.622981173105822`"}], ",", 
   RowBox[{"-", "14.622981173907569`"}], ",", 
   RowBox[{"-", "48.80302685831628`"}], ",", 
   RowBox[{"-", "48.80302688407419`"}]}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"inctorlim", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"ListLimit", "[", 
     RowBox[{"#", ",", 
      RowBox[{"ApproximationReport", "\[Rule]", "None"}], ",", 
      RowBox[{"CutValues", "\[Rule]", "False"}]}], "]"}], "&"}], "/@", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Drop", "[", 
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Range", "[", 
            RowBox[{"3", ",", "10"}], "]"}], ",", "#"}], "}"}], "]"}], ",", 
        "4"}], "]"}], "&"}], "/@", 
     RowBox[{"Transpose", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Take", "[", 
         RowBox[{"#", ",", "60"}], "]"}], "&"}], "/@", 
       RowBox[{"Drop", "[", 
        RowBox[{"linctor1", ",", "2"}], "]"}]}], "]"}]}], ")"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FindRoot", "::", "\<\"frmp\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Machine precision is insufficient to achieve the accuracy \
\\!\\(1.0536712127723519`*^-8\\). \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"FindRoot::frmp\\\"]\\)\"\>"}]], "Message"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"432.5231228926547`", ",", "432.5231225906426`", ",", 
   RowBox[{"-", "5.785382758950721`"}], ",", 
   RowBox[{"-", "14.744669599490466`"}], ",", 
   RowBox[{"-", "14.710239210361987`"}], ",", 
   RowBox[{"-", "14.710238934590556`"}], ",", 
   RowBox[{"-", "26.669668810159962`"}], ",", 
   RowBox[{"-", "26.66946702653395`"}], ",", 
   RowBox[{"-", "26.598469313339283`"}], ",", 
   RowBox[{"-", "26.598469420770048`"}], ",", 
   RowBox[{"-", "30.55771485347045`"}], ",", 
   RowBox[{"-", "41.57833581833811`"}], ",", 
   RowBox[{"-", "41.57833592827694`"}], ",", 
   RowBox[{"-", "41.35044471306692`"}], ",", 
   RowBox[{"-", "41.35016009677251`"}], ",", 
   RowBox[{"-", "49.683689890765564`"}], ",", 
   RowBox[{"-", "49.41808069165766`"}], ",", 
   RowBox[{"-", "49.41808064018745`"}], ",", 
   RowBox[{"-", "59.978274366265836`"}], ",", 
   RowBox[{"-", "59.97827448038095`"}], ",", 
   RowBox[{"-", "59.67484538289509`"}], ",", 
   RowBox[{"-", "59.67440940437003`"}], ",", 
   RowBox[{"-", "82.35028927451144`"}], ",", 
   RowBox[{"-", "82.35028941886745`"}], ",", 
   RowBox[{"-", "82.16839898550704`"}], ",", 
   RowBox[{"-", "82.16778878520789`"}], ",", 
   RowBox[{"-", "69.56762271786279`"}], ",", 
   RowBox[{"-", "69.56805302051814`"}], ",", 
   RowBox[{"-", "70.01012721893845`"}], ",", 
   RowBox[{"-", "70.12680905391274`"}], ",", 
   RowBox[{"-", "78.15185884669371`"}], ",", 
   RowBox[{"-", "99.34864850156451`"}], ",", 
   RowBox[{"-", "122.1869722016749`"}], ",", 
   RowBox[{"-", "111.47689967987473`"}], ",", 
   RowBox[{"-", "111.44313032430979`"}], ",", 
   RowBox[{"-", "123.62823889863213`"}], ",", 
   RowBox[{"-", "123.48842849819039`"}], ",", 
   RowBox[{"-", "107.34604665861396`"}], ",", 
   RowBox[{"-", "176.60462912298166`"}], ",", 
   RowBox[{"-", "92.39446935438481`"}], ",", 
   RowBox[{"-", "95.06570445495502`"}], ",", 
   RowBox[{"-", "89.54944482168993`"}], ",", 
   RowBox[{"-", "95.85032238275139`"}], ",", 
   RowBox[{"-", "93.76716606812083`"}], ",", 
   RowBox[{"-", "417.5066538316748`"}], ",", 
   RowBox[{"-", "678.6212347704527`"}], ",", 
   RowBox[{"-", "211.3200896137058`"}], ",", 
   RowBox[{"-", "130.34193001797468`"}], ",", 
   RowBox[{"-", "117.79713005711498`"}], ",", 
   RowBox[{"-", "117.58388927464023`"}], ",", 
   RowBox[{"-", "96.5796472346195`"}], ",", 
   RowBox[{"-", "97.28634920923788`"}], ",", 
   RowBox[{"-", "98.08210211434968`"}], ",", 
   RowBox[{"-", "99.08993617845054`"}], ",", 
   RowBox[{"-", "97.29350066242677`"}], ",", 
   RowBox[{"-", "116.2501068170087`"}], ",", 
   RowBox[{"-", "108.71648557833602`"}], ",", 
   RowBox[{"-", "115.03674550983604`"}], ",", 
   RowBox[{"-", "67.02682768638253`"}], ",", 
   RowBox[{"-", "67.01693790161929`"}]}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Flatten", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
    "inctorlim", "\[LeftDoubleBracket]", "#", "\[RightDoubleBracket]"}], 
    "&"}], "/@", 
   RowBox[{"Position", "[", 
    RowBox[{"nm", ",", "1"}], "]"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "14.744669599490466`"}], ",", 
   RowBox[{"-", "14.710239210361987`"}], ",", 
   RowBox[{"-", "14.710238934590556`"}], ",", 
   RowBox[{"-", "49.41808069165766`"}], ",", 
   RowBox[{"-", "49.41808064018745`"}]}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintRange", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"#", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], 
     "&"}], "/@", 
    RowBox[{"Drop", "[", 
     RowBox[{"linctor1", ",", "2"}], "]"}]}], "]"}], ";"}]], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
-0.112245 0.136054 73.9392 12.7927 [
[.15986 -0.01531 -3 -9 ]
[.15986 -0.01531 3 0 ]
[.29592 -0.01531 -3 -9 ]
[.29592 -0.01531 3 0 ]
[.43197 -0.01531 -3 -9 ]
[.43197 -0.01531 3 0 ]
[.56803 -0.01531 -3 -9 ]
[.56803 -0.01531 3 0 ]
[.70408 -0.01531 -3 -9 ]
[.70408 -0.01531 3 0 ]
[.84014 -0.01531 -3 -9 ]
[.84014 -0.01531 3 0 ]
[.97619 -0.01531 -3 -9 ]
[.97619 -0.01531 3 0 ]
[.01131 .12512 -30 -4.5 ]
[.01131 .12512 0 4.5 ]
[.01131 .25305 -30 -4.5 ]
[.01131 .25305 0 4.5 ]
[.01131 .38097 -30 -4.5 ]
[.01131 .38097 0 4.5 ]
[.01131 .5089 -30 -4.5 ]
[.01131 .5089 0 4.5 ]
[ 0 -0.00281 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.15986 -0.00281 m
.15986 .00344 L
s
[(2)] .15986 -0.01531 0 1 Mshowa
.29592 -0.00281 m
.29592 .00344 L
s
[(3)] .29592 -0.01531 0 1 Mshowa
.43197 -0.00281 m
.43197 .00344 L
s
[(4)] .43197 -0.01531 0 1 Mshowa
.56803 -0.00281 m
.56803 .00344 L
s
[(5)] .56803 -0.01531 0 1 Mshowa
.70408 -0.00281 m
.70408 .00344 L
s
[(6)] .70408 -0.01531 0 1 Mshowa
.84014 -0.00281 m
.84014 .00344 L
s
[(7)] .84014 -0.01531 0 1 Mshowa
.97619 -0.00281 m
.97619 .00344 L
s
[(8)] .97619 -0.01531 0 1 Mshowa
.125 Mabswid
.05102 -0.00281 m
.05102 .00094 L
s
.07823 -0.00281 m
.07823 .00094 L
s
.10544 -0.00281 m
.10544 .00094 L
s
.13265 -0.00281 m
.13265 .00094 L
s
.18707 -0.00281 m
.18707 .00094 L
s
.21429 -0.00281 m
.21429 .00094 L
s
.2415 -0.00281 m
.2415 .00094 L
s
.26871 -0.00281 m
.26871 .00094 L
s
.32313 -0.00281 m
.32313 .00094 L
s
.35034 -0.00281 m
.35034 .00094 L
s
.37755 -0.00281 m
.37755 .00094 L
s
.40476 -0.00281 m
.40476 .00094 L
s
.45918 -0.00281 m
.45918 .00094 L
s
.48639 -0.00281 m
.48639 .00094 L
s
.51361 -0.00281 m
.51361 .00094 L
s
.54082 -0.00281 m
.54082 .00094 L
s
.59524 -0.00281 m
.59524 .00094 L
s
.62245 -0.00281 m
.62245 .00094 L
s
.64966 -0.00281 m
.64966 .00094 L
s
.67687 -0.00281 m
.67687 .00094 L
s
.73129 -0.00281 m
.73129 .00094 L
s
.7585 -0.00281 m
.7585 .00094 L
s
.78571 -0.00281 m
.78571 .00094 L
s
.81293 -0.00281 m
.81293 .00094 L
s
.86735 -0.00281 m
.86735 .00094 L
s
.89456 -0.00281 m
.89456 .00094 L
s
.92177 -0.00281 m
.92177 .00094 L
s
.94898 -0.00281 m
.94898 .00094 L
s
.25 Mabswid
0 -0.00281 m
1 -0.00281 L
s
.02381 .12512 m
.03006 .12512 L
s
[(-5.77)] .01131 .12512 1 0 Mshowa
.02381 .25305 m
.03006 .25305 L
s
[(-5.76)] .01131 .25305 1 0 Mshowa
.02381 .38097 m
.03006 .38097 L
s
[(-5.75)] .01131 .38097 1 0 Mshowa
.02381 .5089 m
.03006 .5089 L
s
[(-5.74)] .01131 .5089 1 0 Mshowa
.125 Mabswid
.02381 .02278 m
.02756 .02278 L
s
.02381 .04836 m
.02756 .04836 L
s
.02381 .07395 m
.02756 .07395 L
s
.02381 .09953 m
.02756 .09953 L
s
.02381 .1507 m
.02756 .1507 L
s
.02381 .17629 m
.02756 .17629 L
s
.02381 .20188 m
.02756 .20188 L
s
.02381 .22746 m
.02756 .22746 L
s
.02381 .27863 m
.02756 .27863 L
s
.02381 .30422 m
.02756 .30422 L
s
.02381 .3298 m
.02756 .3298 L
s
.02381 .35539 m
.02756 .35539 L
s
.02381 .40656 m
.02756 .40656 L
s
.02381 .43214 m
.02756 .43214 L
s
.02381 .45773 m
.02756 .45773 L
s
.02381 .48332 m
.02756 .48332 L
s
.02381 .53449 m
.02756 .53449 L
s
.02381 .56007 m
.02756 .56007 L
s
.02381 .58566 m
.02756 .58566 L
s
.02381 .61124 m
.02756 .61124 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
.5 Mabswid
.02381 .60332 m
.15986 .32055 L
.29592 .18955 L
.43197 .11834 L
.56803 .0754 L
.70408 .04752 L
.84014 .02841 L
.97619 .01472 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWmtoXEUUvtlHN0mbPtI26TubtN00adU0ranah62PphRrfVZEqCyxmEVq
SxpUpIiKKCgoCkURRZGKouiPgiIqUkRFRRQpIkWsiFqfhfqoz2rMnBvP3p39
vnvv7o6KYElOpme+7ztzz9w79+zMbsoPD27bnh8uDOSz/UP5nYOFgV3Z9TuG
Rl3JOs+rG/Q871DWM+2R0eaYGRn9GSkYYzzF9gXmT9pAukwraVqLtdVpWinQ
60lTWua3iMsEZL10CUg6Rv8tCulD4guBL0FxWLcb4HMxdVO+yoWg6wTg6wI+
FP5vHu5FoGsJG8a48Ny7n6uxQV7M8pfQe85LlfT+df+kSlvoynL2Tbkl5szk
QuLGmOwTgW9BZXmp9vGxh8OGja4a4dAQK7wUeWySelMXl5CEDs5afjr1jixb
Vtgq5qrdbv5I2jZ4MKHmd1wNvrRjvf/iWP7Pwb89Fnhbx31vxeXWohcyTLGr
a+zvMUaWnfoIpCxBDcbdFIFsM6beuFsCSFnlpL9VleZFKDUpsjMCmdaYPRx5
XEGncNAxYzPGs5aDjqhSPwcdVqXNHHRIlbbYyTpoWrL8b+X8AzqBV3DQ2woq
cNAbCrqag141Vl5Euzhovypdy0EvKGg3Bz2roJvs7OzTrls5/ykd7h0c9ISx
4rqLgx5T0D0ctFdBezjoYR3TfRz0oCo9wEH3K+ghDrpXQY/YKdyjXY9y/t0K
epyD7lTQkxx0u1740xx0myrt80EZZaV14BlARC8N5LtFAzzjB0BvB1TGJZyE
v1lVnvPDjwcg5Isb4EYN8LwfIMWGPCGmYkozdoNqv2hPzqRKxCzfbpV9KSBr
gabEDJAEvus1wH4eAKUjMTbmoM/z4EWguNdp3JcDcWXRajQtWdwT2kKXc41K
vMIfmmEFvcZBQwp6nYN2KujNAEgcO7T1FudvB74Q+FWq+Q4HFRT0LgddqaAD
HLRNQe9x0ICC3uegvIIOctDlCvrATuZWbX3I+Zcp6CMOulRBH3PQJQr6hIPQ
rkAIHG1ZfMrhaBvmMw5Hm0yH7Swi0Odc83zg+4LDzwO+Lzl8M/B9xeHnAt/X
HL4J+L7h8HOA7wiHb9SUHrVzvBHAj3KlDcD3LYf3A993HL4e+L7n8LOB7wcO
Pwv4jvnwuFVI8V2Jyoozge9HP4CbKsR/CeEtMfR2OQP4fvIZceuSSkOuA76f
fUZFlUoiKq7A1wLmL/aUotolob1oZk4Hvl8DsrB2wWNtAPg1wPcbl+fpifah
q1sNfMcD4a0CpphtNN+rgO93/gyuBL4/OPw04Bvh8FMZvC7AkaeLIhNcfQXj
JDmnj3FSnLNcRyn/z3DkMqYewullnJAdoqWM08A5PYzTaM8FRY7n6ujsQewE
zkGHWGJDdrzQeYvYiZyDzovETuIctGEodjLn0N2yKW456MBEbLM9k1S9mat3
Ms5Utxx0rCh2mlsOOhkUO90tBx1PiS3blaXqLVx9PuO0uuV0MM6M6jlxi7mk
4tBbsp1FmelHcVPRxX2Po+2HqBHGLfF4pVnqy7J4s/x4FdV3KH0SVFxRoWop
7tqY9uyAdo0VXjUxKq2CUdx5LO6cQFyrvkuqD9V3UYroAa2GM5dx5rrlzGGc
4GGVPK5UPeRYazbjtLnlzGKcrFvOTMZpd8uZwTgd9qxQ9Q6u3so4891yWhhn
gVvOdMZZ6JYzjXFy9qxQ9RxXn8o4IYfB/xSnmXEWueWgUw+xXW45kxmn255J
qt7N1dE7WOxit5yJjLOkek5F549JxVm9TSyK/5nTUbGIVNBZVdRo4haGceOh
ykWs/yk9qjAsPX8bKdt2ipKPUQyWn/Gha0M5EHtSIFAFlSH/tmDtcavdFGTX
3sjG0BMYA9oZTFSriJ5WVNOKXeqWU884vQGOXBlV761RPcaHMLHL3HLQTIld
7paDVkmxJ7vloOdJbJ89k1S9j6ujj8FiV7jloCdXbMg32eJx8MokrZXV4MoW
UmmsspM9lgXFlumUrkjST77MCPuL2+NrIr0oR7V+sTJ6LDWoSrtQ3vbq/gS/
D2EA\
\>"],
 ImageRangeCache->{{{0, 359}, {221.375, 0}} -> {0.0604713, -5.7842, \
0.0282541, 0.000300491}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ListLimit", "[", 
    RowBox[{"#", ",", 
     RowBox[{"ApproximationReport", "\[Rule]", "LimitPlot"}]}], "]"}], "&"}], 
  "/@", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"First", "/@", 
         RowBox[{"Take", "[", 
          RowBox[{"linctor1", ",", 
           RowBox[{"-", 
            RowBox[{"Length", "[", "#", "]"}]}]}], "]"}]}], ",", "#"}], "}"}],
       "]"}], "&"}], "/@", 
    RowBox[{"Re", "[", 
     RowBox[{"Transpose", "[", 
      RowBox[{"Last", "/@", 
       RowBox[{"Drop", "[", 
        RowBox[{"linctor1", ",", "8"}], "]"}]}], "]"}], "]"}]}], 
   ")"}]}]], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell["\:0412\:0438\:0437\:0443\:0430\:043b\:0438\:0437\:0430\:0446\:0438\:044f\
", "Subsubsection"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Pize", "[", 
    RowBox[{"l_", ",", "add_"}], "]"}], ":=", 
   RowBox[{"Append", "[", 
    RowBox[{"l", ",", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"First", "[", "#", "]"}], ",", 
          RowBox[{"Last", "[", "#", "]"}]}], "}"}], "&"}], "[", 
       RowBox[{"First", "[", "l", "]"}], "]"}], "+", "add"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Pize", "[", "l_", "]"}], ":=", 
   RowBox[{"Append", "[", 
    RowBox[{"l", ",", 
     RowBox[{"First", "[", "l", "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PizeAll", "[", "l_", "]"}], ":=", 
   RowBox[{"Join", "[", 
    RowBox[{"l", ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Block", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"tmp", "=", "#"}], "}"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
           "tmp", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "+=",
            
           RowBox[{"2", "\[Pi]"}]}], ";", "tmp"}]}], "]"}], "&"}], "/@", 
      RowBox[{"Select", "[", 
       RowBox[{"l", ",", 
        RowBox[{
         RowBox[{
          RowBox[{"#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}],
           "==", "0"}], "&"}]}], "]"}]}]}], "]"}]}], ";"}]}], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"v\[Zeta]si", ",", "\[Psi]si"}], "}"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Interpolation", "[", 
      RowBox[{
       RowBox[{"PizeAll", "[", 
        RowBox[{"MapThread", "[", 
         RowBox[{"Append", ",", 
          RowBox[{"{", 
           RowBox[{"coorlist", ",", "#"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"PeriodicInterpolation", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"False", ",", "True"}], "}"}]}], ",", 
       RowBox[{"InterpolationOrder", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}], "&"}], "/@", 
    RowBox[{"Partition", "[", 
     RowBox[{
      RowBox[{"Re", "[", "matsolv", "]"}], ",", 
      RowBox[{
       RowBox[{"Length", "[", "matsolv", "]"}], "/", "2"}]}], "]"}]}]}], 
  ";"}]], "Input"],

Cell["\:0417\:0430\:0432\:0438\:0441\:0438\:043c\:043e\:0441\:0442\:044c \
\:043e\:0442 \:0440\:0430\:0434\:0438\:0443\:0441\:0430", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"v\[Zeta]si", "[", 
     RowBox[{"r", ",", "0.4`"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", 
      RowBox[{"coorlist", "\[LeftDoubleBracket]", 
       RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
      RowBox[{"coorlist", "\[LeftDoubleBracket]", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "\[RightDoubleBracket]"}]}], "}"}], 
    ",", 
    RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ";", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"\[Psi]si", "[", 
     RowBox[{"r", ",", "0.4`"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", 
      RowBox[{"coorlist", "\[LeftDoubleBracket]", 
       RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
      RowBox[{"coorlist", "\[LeftDoubleBracket]", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "\[RightDoubleBracket]"}]}], "}"}], 
    ",", 
    RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}]], "Input"],

Cell["\:0417\:0430\:0432\:0438\:0441\:0438\:043c\:043e\:0441\:0442\:044c \
\:043e\:0442 \:0443\:0433\:043b\:0430", "Text"],

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"v\[Zeta]si", "[", 
    RowBox[{
     FractionBox["1", "4"], ",", "\[Phi]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Phi]", ",", "0", ",", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}]}], "]"}], "\n", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"\[Psi]si", "[", 
    RowBox[{
     FractionBox["1", "4"], ",", "\[Phi]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Phi]", ",", "0", ",", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}]}], "]"}]}], "Input"],

Cell[CellGroupData[{

Cell["\:0414\:0432\:0443\:043c\:0435\:0440\:043d\:044b\:0435 \:043a\:0430\
\:0440\:0442\:0438\:043d\:043a\:0438 - Density", "Text"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"PolarDensityPlot", "[", 
   RowBox[{
    RowBox[{"v\[Zeta]si", "[", 
     RowBox[{"r", ",", "f"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", 
      RowBox[{"coorlist", "\[LeftDoubleBracket]", 
       RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
      RowBox[{"coorlist", "\[LeftDoubleBracket]", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "\[RightDoubleBracket]"}]}], "}"}], 
    ",", 
    RowBox[{"{", "f", "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PolarDensityPlot", "[", 
   RowBox[{
    RowBox[{"\[Psi]si", "[", 
     RowBox[{"r", ",", "f"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", 
      RowBox[{"coorlist", "\[LeftDoubleBracket]", 
       RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
      RowBox[{"coorlist", "\[LeftDoubleBracket]", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "\[RightDoubleBracket]"}]}], "}"}], 
    ",", 
    RowBox[{"{", "f", "}"}]}], "]"}], ";"}]}], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:0414\:0432\:0443\:043c\:0435\:0440\:043d\:044b\:0435 \:043a\:0430\
\:0440\:0442\:0438\:043d\:043a\:0438 - Contour", "Text"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"PolarContourPlot", "[", 
   RowBox[{
    RowBox[{"v\[Zeta]si", "[", 
     RowBox[{"r", ",", "f"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", 
      RowBox[{"coorlist", "\[LeftDoubleBracket]", 
       RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
      RowBox[{"coorlist", "\[LeftDoubleBracket]", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "\[RightDoubleBracket]"}]}], "}"}], 
    ",", 
    RowBox[{"{", "f", "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PolarContourPlot", "[", 
   RowBox[{
    RowBox[{"\[Psi]si", "[", 
     RowBox[{"r", ",", "f"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", 
      RowBox[{"coorlist", "\[LeftDoubleBracket]", 
       RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
      RowBox[{"coorlist", "\[LeftDoubleBracket]", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "\[RightDoubleBracket]"}]}], "}"}], 
    ",", 
    RowBox[{"{", "f", "}"}]}], "]"}], ";"}]}], "Input"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\:0414\:0440\:0443\:0433\:043e\:0435", "Subsection"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"incrs", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"N", "[", 
      RowBox[{"GetIncrements", "[", 
       RowBox[{"50", ",", "2", ",", "0.01`", ",", "100"}], "]"}], "]"}], ",", 
     
     RowBox[{
      RowBox[{
       RowBox[{"Re", "[", "#1", "]"}], ">", 
       RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"Max", "[", 
    RowBox[{"Re", "/@", "incrs"}], "]"}], "]"}], ";"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"PointSize", "[", "0.04`", "]"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Point", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Re", "[", "#1", "]"}], ",", 
            RowBox[{"Im", "[", "#1", "]"}]}], "}"}], "]"}], "&"}], ")"}], "/@",
        "incrs"}]}], "}"}], "]"}], ",", 
   RowBox[{"Axes", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Automatic", ",", "Automatic"}], "}"}]}]}], "]"}]}], "Input"],

Cell[BoxData[
 RowBox[{"-", "0.26339344707701834`"}]], "Print"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.97619 0.00295371 -1.05169 207.698 [
[.09008 .182 -12 -9 ]
[.09008 .182 12 0 ]
[.23776 .182 -12 -9 ]
[.23776 .182 12 0 ]
[.38545 .182 -12 -9 ]
[.38545 .182 12 0 ]
[.53313 .182 -12 -9 ]
[.53313 .182 12 0 ]
[.68082 .182 -12 -9 ]
[.68082 .182 12 0 ]
[.8285 .182 -9 -9 ]
[.8285 .182 9 0 ]
[.96369 .09065 -36 -4.5 ]
[.96369 .09065 0 4.5 ]
[.96369 .29835 -36 -4.5 ]
[.96369 .29835 0 4.5 ]
[.96369 .40219 -30 -4.5 ]
[.96369 .40219 0 4.5 ]
[.96369 .50604 -36 -4.5 ]
[.96369 .50604 0 4.5 ]
[.96369 .60989 -30 -4.5 ]
[.96369 .60989 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.09008 .1945 m
.09008 .20075 L
s
[(-300)] .09008 .182 0 1 Mshowa
.23776 .1945 m
.23776 .20075 L
s
[(-250)] .23776 .182 0 1 Mshowa
.38545 .1945 m
.38545 .20075 L
s
[(-200)] .38545 .182 0 1 Mshowa
.53313 .1945 m
.53313 .20075 L
s
[(-150)] .53313 .182 0 1 Mshowa
.68082 .1945 m
.68082 .20075 L
s
[(-100)] .68082 .182 0 1 Mshowa
.8285 .1945 m
.8285 .20075 L
s
[(-50)] .8285 .182 0 1 Mshowa
.125 Mabswid
.11961 .1945 m
.11961 .19825 L
s
.14915 .1945 m
.14915 .19825 L
s
.17869 .1945 m
.17869 .19825 L
s
.20822 .1945 m
.20822 .19825 L
s
.2673 .1945 m
.2673 .19825 L
s
.29684 .1945 m
.29684 .19825 L
s
.32637 .1945 m
.32637 .19825 L
s
.35591 .1945 m
.35591 .19825 L
s
.41498 .1945 m
.41498 .19825 L
s
.44452 .1945 m
.44452 .19825 L
s
.47406 .1945 m
.47406 .19825 L
s
.5036 .1945 m
.5036 .19825 L
s
.56267 .1945 m
.56267 .19825 L
s
.59221 .1945 m
.59221 .19825 L
s
.62174 .1945 m
.62174 .19825 L
s
.65128 .1945 m
.65128 .19825 L
s
.71036 .1945 m
.71036 .19825 L
s
.73989 .1945 m
.73989 .19825 L
s
.76943 .1945 m
.76943 .19825 L
s
.79897 .1945 m
.79897 .19825 L
s
.85804 .1945 m
.85804 .19825 L
s
.88758 .1945 m
.88758 .19825 L
s
.91712 .1945 m
.91712 .19825 L
s
.94665 .1945 m
.94665 .19825 L
s
.06054 .1945 m
.06054 .19825 L
s
.031 .1945 m
.031 .19825 L
s
.00146 .1945 m
.00146 .19825 L
s
.25 Mabswid
0 .1945 m
1 .1945 L
s
.97619 .09065 m
.98244 .09065 L
s
[(0.0055)] .96369 .09065 1 0 Mshowa
.97619 .29835 m
.98244 .29835 L
s
[(0.0065)] .96369 .29835 1 0 Mshowa
.97619 .40219 m
.98244 .40219 L
s
[(0.007)] .96369 .40219 1 0 Mshowa
.97619 .50604 m
.98244 .50604 L
s
[(0.0075)] .96369 .50604 1 0 Mshowa
.97619 .60989 m
.98244 .60989 L
s
[(0.008)] .96369 .60989 1 0 Mshowa
.125 Mabswid
.97619 .11142 m
.97994 .11142 L
s
.97619 .13219 m
.97994 .13219 L
s
.97619 .15296 m
.97994 .15296 L
s
.97619 .17373 m
.97994 .17373 L
s
.97619 .21527 m
.97994 .21527 L
s
.97619 .23604 m
.97994 .23604 L
s
.97619 .25681 m
.97994 .25681 L
s
.97619 .27758 m
.97994 .27758 L
s
.97619 .31912 m
.97994 .31912 L
s
.97619 .33989 m
.97994 .33989 L
s
.97619 .36065 m
.97994 .36065 L
s
.97619 .38142 m
.97994 .38142 L
s
.97619 .42296 m
.97994 .42296 L
s
.97619 .44373 m
.97994 .44373 L
s
.97619 .4645 m
.97994 .4645 L
s
.97619 .48527 m
.97994 .48527 L
s
.97619 .52681 m
.97994 .52681 L
s
.97619 .54758 m
.97994 .54758 L
s
.97619 .56835 m
.97994 .56835 L
s
.97619 .58912 m
.97994 .58912 L
s
.97619 .06988 m
.97994 .06988 L
s
.97619 .04911 m
.97994 .04911 L
s
.97619 .02834 m
.97994 .02834 L
s
.97619 .00757 m
.97994 .00757 L
s
.25 Mabswid
.97619 0 m
.97619 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.04 w
.97411 .12884 Mdot
.97224 .23544 Mdot
.96981 .26683 Mdot
.96686 .28915 Mdot
.9634 .29848 Mdot
.95946 .30647 Mdot
.95507 .31023 Mdot
.95026 .31378 Mdot
.94507 .31548 Mdot
.93953 .31719 Mdot
.93369 .31796 Mdot
.92758 .31876 Mdot
.92123 .31905 Mdot
.91469 .31934 Mdot
.90799 .31937 Mdot
.90116 .31935 Mdot
.89425 .31922 Mdot
.88727 .31899 Mdot
.88027 .31878 Mdot
.87327 .3184 Mdot
.86631 .31813 Mdot
.85939 .31763 Mdot
.85255 .31732 Mdot
.84581 .31672 Mdot
.83919 .31638 Mdot
.83271 .31567 Mdot
.82638 .3153 Mdot
.82023 .31446 Mdot
.81426 .31402 Mdot
.80849 .31303 Mdot
.80294 .31246 Mdot
.79762 .31126 Mdot
.79254 .31046 Mdot
.78772 .30897 Mdot
.78315 .30772 Mdot
.77889 .30576 Mdot
.77489 .30368 Mdot
.77123 .30093 Mdot
.76785 .29726 Mdot
.76485 .29305 Mdot
.76215 .28627 Mdot
.75986 .27904 Mdot
.7579 .26598 Mdot
.75638 .25248 Mdot
.75526 .23077 Mdot
.75461 .52561 Mdot
.73934 .39417 Mdot
.58227 .16405 Mdot
.58201 .21425 Mdot
.58166 .3608 Mdot
.58102 .29197 Mdot
.58042 .35349 Mdot
.5795 .30758 Mdot
.57868 .34615 Mdot
.57752 .31364 Mdot
.57652 .3424 Mdot
.57517 .31653 Mdot
.57402 .34188 Mdot
.57252 .31811 Mdot
.57127 .34563 Mdot
.56966 .31953 Mdot
.56836 .35903 Mdot
.56671 .32531 Mdot
.56544 .41046 Mdot
.56392 .38538 Mdot
.56288 .49908 Mdot
.5616 .34479 Mdot
.56015 .38259 Mdot
.55878 .2985 Mdot
.55715 .35793 Mdot
.55583 .29234 Mdot
.55417 .3573 Mdot
.55296 .2834 Mdot
.55129 .37138 Mdot
.55027 .25794 Mdot
.54853 .44534 Mdot
.54798 .15461 Mdot
.54422 .39938 Mdot
.54368 .18778 Mdot
.54217 .38522 Mdot
.54161 .18801 Mdot
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztW21THEUQXm45uDtukyi5gOaFS4xa8skkmNIgQtQiiUqMpjRa5RcKrYIP
llbMT0AtjefrzwkcHCRavv2F/BWkm/WZ2dmZ2dm73T2IXlGzTc8zPT3TPT09
c3sLi3eWP/l08c7K0mLzyu3Fz5dXlr5ozn92e5flD3jewLLneQ+bHtE7u2RY
7Oz+7XxEhed7exxmeTUuvezquTpzqf2u/39Uj0594aOepGKQastElUAxb9BK
DSXIfk5TXzLxSpCtbTEY4QGajh0V7GekfiWt0lFo2ZF3ENVlidUilIyy8/PV
1IqVVcX4/2GNGB3vgKkookldYwOmuDMflM51soxvH1IxRLUy9wMqKqpz3qKi
RtyKxH2firqYkT3ue1QEWu4h4W8ZcDsYQEvtchOjaKk6bmAoLXVQbWBb6iys
o4dB9LqqTuA6NCyh/VdmK5yghw9TKy4xAUfQbTD22tNEnSRqLOpYCu6shjcJ
rUI1j1tWgi7ypoiYJw6k6KbCo88TVIwb5WbWV8rmz5q9b8IyQSlShZMaXrW3
5qlTnf6Z5+lMTDFKDw4kQ9kY5SgE6morWQnqcR01IFzd6ujzJBV1IyQD441D
+HAmZmRf7i5Zj0InTHPNrc2zniwlh2jEdhrLvq/TqQecf7AzR2PXCKaTl5Fa
sTyfU5tw9v791PO0VpezYLFbn3IPHd51NDkmHqeo9CHIaN8GcD0Gopysak98
m9FaJXltWts+pem0Sv+whpya67IAY26sdD5pHhPn/iOAsx1WoWsIWqNHEDXg
l2aZ96A0q5V0nmD4YcB5Z/vaBf5TESC2AHvax5Lb6laE7iitO7m7HsNd2/YL
V0QfZbgS24HXRHWf61zEPIfOeUZTdc6R9zyVYuXzoj7Vg7xQpTbsJAKKJVZs
0GMY8CAB/jv8YdUFNEUUB5Q3XOAXiOJwdY0oOQQK0HnM1uuQPiKBAoB47K9C
ZijpD1SdA/wyZIb3Nn+CcR4dz6JheO/zF0RfAOgVyAxBf0PJqSiIKfmqq+JS
H0ATuX4LncxByRioA3VnoyBZ3U0MfAZVc+rAN8B4GZ3MqVPYRnsBuqwao42q
6QRJCihmDB0oZgwBEjrNqPMkFJ8xg8QUWECbWOJJIJak5GScOrwQbSgPhlVo
aDwrZqpjUR+dAagqgcbg7Ycxi4EZdISoS5ApdzceBb0ImXrQKFEBUQ7fmpUR
GHx0ILuuUPA4GroeWbo7g7un7Hpl2S5nFPvTU7fPdqvJ45IhN+ES7DdTRJmP
cVHemCSnE5Vzk6iatupdosIYvQWvZdd+R6rapsdRYlwk6oZUdR+DYG+6TlR9
r+oBPR4jxktELUhVotUltKpJVdyKV8NVzfyPqEheXPOm6ZIFs6U52L1mcoYY
nHezWZMLxtR+k6iLRFm+8NnGBNwkalJYTwvfggGW0PAIFlwMZMkTnEAduIIF
JBaKJePoL0ieHRHbLO1FKLUMvA1JFtA6QJYD3hpAnPFwnnDDDL8XhfN2/XYC
nNe6yMyuq9MiQCyTN58FF5mcJQfp4LwhvZUAb0AZhnMm77D/6L71tizANawD
0ZXudiTjPUlzTVGMzj2+CtGNpo2om+iOZDloauTJL2gI/YTX91s/y0yK9cmL
WHcpVtDrL5YNcx1zyuGGo9PZvDTt9a2nNpYSZ3kceZ+Bl+je6PCBs/g97x+c
Nn9jBvEmxanCt2bQA/ilBfQrXOIuUbFkgNfdd+b2HYBaCepyJ5bLQHHq+jFh
0gMXEIe2H5xB8sC7ad+Duk4Dd5pCcQvwsxkk7hN+UQfOuH3xZqe+/jeo/n2C
R4v3fCxrowbflifhPsxx19x+G4ZNAh1KWIACxK9ZdZmm+NbaWFe3NKDC0xTX
c6klBqcfUQ5JjO4OOUnnAAbvT7pg96GquhKmsfBcvyfOQeeSi4+Lhc06cxw4
VozO5bCUeSHcdjAX8Woaujfy0jjV7ZJFaRGJp+EkDdjHnvy4v84qbsWvuCA5
EMynQ8a2v64lZTKOKmYzCVmDs1xNQI7Awa4lIMWrVZavdMQmfZBSB/f6R3NU
+27UfMJL9VOapB8l6L44LeYHNM57fyo9Cz/R7hftYr+DKUinrB3tP2tAp2Vv
/M0LU6NSm5Www4F/AEroOUQ=\
\>"],
 ImageRangeCache->{{{0, 359}, {221.375, 0}} -> {-333.009, 0.00506354, \
1.19632, 1.70131}}],

Cell[BoxData[
 RowBox[{"Sort", "[", 
  RowBox[{
   RowBox[{"GetIncrements", "[", 
    RowBox[{"300", ",", "1.", ",", "10000"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"Im", "[", "#1", "]"}], "<", 
     RowBox[{"Im", "[", "#2", "]"}]}], "&"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"linc", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"R", ",", 
       RowBox[{"GetMainIncrement", "[", 
        RowBox[{"100", ",", "0", ",", "1", ",", "R", ",", "2"}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"R", ",", "1", ",", "20001", ",", "100"}], "}"}]}], "]"}]}], 
  ";"}]], "Input"],

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{"linc", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"n", ",", 
        RowBox[{"(", 
         RowBox[{"GetMainIncrement", "[", 
          RowBox[{"n", ",", "0", ",", "1", ",", "1000", ",", "2"}], "]"}], 
         ")"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", "10", ",", "250", ",", "10"}], "}"}]}], "]"}]}], 
   ";"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"gr", "=", 
   RowBox[{"PrintRange", "[", 
    RowBox[{"Last", "/@", "linc"}], "]"}]}], ";"}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"!", 
     RowBox[{"NumericQ", "[", "E", "]"}]}], ",", 
    RowBox[{"Remove", "[", "E", "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cutout", "=", "6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ltest", "=", 
   RowBox[{"Last", "/@", 
    RowBox[{"Drop", "[", 
     RowBox[{"linc", ",", "cutout"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"lna\[Lambda]", ",", "\[Lambda]"}], "}"}], "=", 
   RowBox[{"CoefficientList", "[", 
    RowBox[{
     RowBox[{"Fit", "[", 
      RowBox[{
       RowBox[{"Log", "[", 
        RowBox[{"-", 
         RowBox[{"dif", "[", "ltest", "]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], "]"}], ",", "x"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a", "=", 
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox["E", "lna\[Lambda]"]}], "/", "\[Lambda]"}]}], ";", 
  RowBox[{"Print", "[", 
   RowBox[{"{", 
    RowBox[{"a", ",", "\[Lambda]"}], "}"}], "]"}], ";"}]}], "Input"]
}, Closed]],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"ltest", "-", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"a", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[Lambda]", " ", "x"}]]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", 
       RowBox[{"Length", "[", "ltest", "]"}]}], "}"}]}], "]"}]}], 
  "]"}]], "Input"]
},
AutoGeneratedPackage->Automatic,
CellGrouping->Manual,
WindowSize->{597, 600},
WindowMargins->{{8, Automatic}, {Automatic, 1}},
ShowSelection->True,
Magnification->1.25,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 28, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 82, 2, 35, "Input",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[675, 27, 173, 2, 46, "Subsection"],
Cell[CellGroupData[{
Cell[873, 33, 249, 4, 55, "Subsubsection"],
Cell[CellGroupData[{
Cell[1147, 41, 318, 6, 34, "Text"],
Cell[1468, 49, 8410, 220, 298, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[9915, 274, 596, 14, 52, "Text"],
Cell[10514, 290, 231383, 5753, 9456, "Input",
 InitializationCell->True]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[241946, 6049, 227, 5, 35, "Input"],
Cell[242176, 6056, 4974, 167, 192, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[247187, 6228, 285, 5, 34, "Subsubsection"],
Cell[247475, 6235, 21702, 564, 1603, "Input",
 InitializationCell->True]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[269226, 6805, 196, 2, 35, "Subsection"],
Cell[CellGroupData[{
Cell[269447, 6811, 291, 5, 34, "Subsubsection"],
Cell[269741, 6818, 593, 17, 80, "Input"],
Cell[270337, 6837, 2196, 59, 278, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[272570, 6901, 194, 4, 25, "Subsubsection"],
Cell[272767, 6907, 314, 10, 35, "Input",
 InitializationCell->True],
Cell[273084, 6919, 1706, 47, 212, "Input",
 InitializationCell->True],
Cell[274793, 6968, 735, 19, 124, "Input",
 InitializationCell->True],
Cell[275531, 6989, 2166, 57, 256, "Input",
 InitializationCell->True],
Cell[277700, 7048, 835, 25, 102, "Input",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[278572, 7078, 73, 0, 25, "Subsubsection"],
Cell[278648, 7080, 352, 11, 35, "Input"],
Cell[CellGroupData[{
Cell[279025, 7095, 126, 2, 35, "Input"],
Cell[279154, 7099, 86, 2, 27, "Print"],
Cell[279243, 7103, 63, 1, 35, "Output"]
}, Open  ]],
Cell[279321, 7107, 1812, 46, 146, "Input"],
Cell[281136, 7155, 1978, 49, 168, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[283151, 7209, 132, 3, 27, "Input"],
Cell[283286, 7214, 7625, 440, 233, 6049, 411, "GraphicsData", "PostScript", \
"Graphics"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[290960, 7660, 554, 14, 72, "Input"],
Cell[291517, 7676, 130, 2, 27, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[291684, 7683, 104, 3, 35, "Input"],
Cell[291791, 7688, 105, 1, 27, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[291933, 7694, 446, 11, 80, "Input"],
Cell[292382, 7707, 83, 1, 27, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[292502, 7713, 105, 3, 35, "Input"],
Cell[292610, 7718, 129, 2, 27, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[292776, 7725, 315, 8, 35, "Input"],
Cell[293094, 7735, 158, 2, 27, "Print"],
Cell[293255, 7739, 982, 21, 124, "Output"]
}, Open  ]],
Cell[294252, 7763, 160, 5, 35, "Input"],
Cell[CellGroupData[{
Cell[294437, 7772, 446, 14, 102, "Input"],
Cell[294886, 7788, 88, 1, 27, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[295011, 7794, 490, 15, 102, "Input"],
Cell[295504, 7811, 154, 2, 27, "Print"]
}, Open  ]],
Cell[295673, 7816, 296, 10, 58, "Input"],
Cell[CellGroupData[{
Cell[295994, 7830, 190, 2, 46, "Subsection"],
Cell[296187, 7834, 1842, 52, 236, "Input"],
Cell[CellGroupData[{
Cell[298054, 7890, 172, 5, 35, "Input"],
Cell[298229, 7897, 310, 8, 27, "Print"],
Cell[298542, 7907, 71, 1, 27, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[298650, 7913, 291, 9, 35, "Input"],
Cell[298944, 7924, 358, 8, 27, "Print"],
Cell[299305, 7934, 72, 1, 27, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[299414, 7940, 134, 4, 35, "Input"],
Cell[299551, 7946, 31, 0, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[299619, 7951, 87, 1, 34, "Subsubsection"],
Cell[299709, 7954, 573, 18, 80, "Input"],
Cell[CellGroupData[{
Cell[300307, 7976, 303, 10, 35, "Input"],
Cell[300613, 7988, 580, 9, 58, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[301230, 8002, 120, 3, 35, "Input"],
Cell[301353, 8007, 2320, 50, 190, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[303710, 8062, 345, 10, 35, "Input"],
Cell[304058, 8074, 285, 7, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[304380, 8086, 824, 25, 102, "Input"],
Cell[305207, 8113, 359, 7, 50, "Message"],
Cell[305569, 8122, 2793, 60, 234, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[308399, 8187, 252, 8, 35, "Input"],
Cell[308654, 8197, 286, 7, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[308977, 8209, 268, 8, 35, "Input"],
Cell[309248, 8219, 6172, 311, 233, 3845, 269, "GraphicsData", "PostScript", \
"Graphics"]
}, Open  ]],
Cell[315435, 8533, 717, 24, 80, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[316189, 8562, 99, 1, 25, "Subsubsection"],
Cell[316291, 8565, 1393, 45, 102, "Input"],
Cell[317687, 8612, 850, 25, 124, "Input"],
Cell[318540, 8639, 140, 1, 34, "Text"],
Cell[318683, 8642, 999, 27, 102, "Input"],
Cell[319685, 8671, 122, 1, 34, "Text"],
Cell[319810, 8674, 516, 16, 89, "Input"],
Cell[CellGroupData[{
Cell[320351, 8694, 131, 1, 34, "Text"],
Cell[320485, 8697, 1027, 28, 80, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[321549, 8730, 131, 1, 34, "Text"],
Cell[321683, 8733, 1027, 28, 80, "Input"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[322771, 8768, 58, 0, 35, "Subsection"],
Cell[322832, 8770, 1126, 35, 124, "Input"],
Cell[323961, 8807, 63, 1, 27, "Print"],
Cell[324027, 8810, 7589, 393, 233, 5185, 350, "GraphicsData", "PostScript", \
"Graphics"],
Cell[331619, 9205, 273, 8, 35, "Input"],
Cell[331895, 9215, 379, 12, 35, "Input"],
Cell[332277, 9229, 455, 14, 80, "Input"],
Cell[332735, 9245, 138, 4, 35, "Input"],
Cell[332876, 9251, 1131, 37, 148, "Input"]
}, Closed]],
Cell[334022, 9291, 358, 11, 31, "Input"]
}
]
*)

(* End of internal cache information *)
